• Sábado 16 de Noviembre de 2024, 00:40

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - miguelig81

Páginas: [1]
1
ABAP / Re: Alv Y Top_of_page
« en: Lunes 23 de Octubre de 2006, 17:00 »
hola bueno yo utilizo este form
*&---------------------------------------------------------------------*
*&      Form  build_eventtab
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_EVENTS[]  text
*----------------------------------------------------------------------*
FORM build_eventtab  USING   p_events TYPE slis_t_event.

  DATA: ls_event TYPE slis_alv_event.
*  Returns table of possible events for a list type
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = p_events.
*  slis_ev_top_of_page
  READ TABLE p_events WITH KEY name = slis_ev_top_of_page
                           INTO ls_event.
  IF sy-subrc = 0.
    MOVE formname_top_of_page TO ls_event-form.
    APPEND ls_event TO p_events.
  ENDIF.

  READ TABLE p_events WITH KEY name = slis_ev_pf_status_set
                            INTO ls_event.
  IF sy-subrc = 0.
    MOVE formname_pf_status TO ls_event-form.
    APPEND ls_event TO p_events.

  ENDIF.

ENDFORM.                    " build_eventtab

y pones tambien

*---------------------------------------------------------------------*
*       FORM TOP_OF_PAGE                                              *
*---------------------------------------------------------------------*
FORM top_of_page.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = heading.
ENDFORM.                    "TOP_OF_PAGE

*---------------------------------------------------------------------*
*       FORM pf_status_set
*---------------------------------------------------------------------*
FORM pf_status_set USING                                    "#EC CALLED
                   pu_tab_excl_okcode TYPE slis_t_extab.

  SET PF-STATUS 'ALV_STATUS'.
  SET TITLEBAR 'TITULO1'.


ENDFORM.                    "pf_status_set
*&---------------------------------------------------------------------*
*&      Form  build_comment
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_HEADING[]  text
*----------------------------------------------------------------------*
FORM build_comment  USING    p_heading TYPE slis_t_listheader.

  DATA: hline    TYPE slis_listheader,
        text(60) TYPE c,
        sep(20)  TYPE c,
        proceso TYPE i,
        w_fecha(20)  TYPE c,
        w_hora(10) TYPE c,
        w_usuario(15) TYPE c,
        w_numero TYPE i.

  CONCATENATE sy-datum(4) '.' sy-datum+4(2) '.' sy-datum+6(2)  INTO w_fecha.
  CONCATENATE sy-uzeit(2) ':' sy-uzeit+2(2) ':' sy-uzeit+4(2)  INTO w_hora.


*  Cabecera
  CLEAR hline.
  hline-typ  = 'H'.
  hline-info =  text-ti2.
  APPEND hline TO p_heading.

  CLEAR hline.
  hline-typ  = 'S'.
  hline-key  = text-fec.
  hline-info = w_fecha.
  APPEND hline TO p_heading.

  CLEAR hline.
  hline-typ  = 'S'.
  hline-key  = text-hor.
  hline-info = w_hora.
  APPEND hline TO p_heading.


  CLEAR hline.
  hline-typ  = 'S'.
  hline-key  = text-usu.
  hline-info = sy-uname.
  APPEND hline TO p_heading.

con este codigo armas y muestra en tu alv, el titulo, la hora, la fecha y el usuario.
ojala te ayude  :D

Páginas: [1]