Agregar funcionalida a botón de un ALV

[JMRM]

Hola a todos, espero alguine pueda ayudarme.

Tengo este caso, se agrego un botón(Icono de exportar a exel) a un AVL, solo que no he podido cachar el código de retorno de dicho botón, el boton se agrego creando un GUI Status.

Tengo un reporte que despliega la información en bloques, pero se requiere bajar la información a excel en Columnas, estoy utilizando esta función "REUSE_ALV_HIERSEQ_LIST_DISPLAY"

Saludos y gracaias.

[pirri]

Los códigos estandar de los botones para excel en ALV son &XXL y también &PC puede servir. Con poner un botón ya te funcionaría la exportación a excel, si queires la normal.

La estructura básica es esta.

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
EXPORTING
...
i_callback_user_command = 'USER_COMMAND'
...


FORM user_command USING $ucomm LIKE sy-ucomm
$selfield TYPE slis_selfield.

[vickxo]

Puede ser posible que no hayas agregado el estatus a la llamada del ALV por lo que no puedes cachar el codigo de ese evento, para agregar el estatus, usa:
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = 'ZFI_CARGA_MERCANCIAS'
is_layout = gs_layout
it_fieldcat = ct_fieldcat
i_save = g_save
is_variant = g_variant
it_events = gt_events[]
i_callback_user_command = 'USER_COMMAND'
it_sort = gt_sort[]
i_callback_pf_status_set = 'ALV_STATUS'
i_grid_settings = li_grid_setting
i_default = 'X'
TABLES
t_outtab = it_report
EXCEPTIONS
program_error = 1
OTHERS = 2.

Donde:
i_callback_pf_status_set = 'ALV_STATUS' Es aqui donde debes de poner el nombre de tu status para que puedas capturar los eventos de los botones que oprimes.

i_callback_pf_status_set = 'TU_ESTATUS'

Espero t sirva...

[123porcristina]

hola a todos!!!

lo que pasa es que tengo el siguiente alv pero necesito adicionar el boton de exportar a excel como lo puedo hacer???

*&---------------------------------------------------------------------*
*& Report ZTRANPMR_REP_T352R
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZTRANPMR_REP_T352R.

*===================================================================*
* Autor: Maria Cristina Giraldo Vargas
* 11.03.08 -
*
*===================================================================*

*========================== Global definitions ====================*

**
* Data Types
**

type-pools: slis.



types: begin of tp_data,
mandt like t352r-mandt,
iwerk like t352r-iwerk,
revnr like t352r-revnr,
revbd like t352r-revbd,
revbz like t352r-revbz,
reved like t352r-reved,
revez like t352r-revez,
revtx like t352r-revtx,
revab like t352r-revab,
pm_objty like t352r-pm_objty,
gewrk like t352r-gewrk,
equnr like t352r-equnr,
pspel like t352r-pspel,
aufnr like t352r-aufnr,
aenam like t352r-aenam,
aedat like t352r-aedat,
ernam like t352r-ernam,
erdat like t352r-erdat,
objnr like t352r-objnr,
revty like t352r-revty,
objid like t352r-objid,
zzorig like t352r-zzorig,
zzclas like t352r-zzclas,
zzpernr like t352r-zzpernr,
zztcon like t352r-zztcon,
zzconsig like t352r-zzconsig,
zzrevbd like t352r-zzrevbd,
zzreved like t352r-zzreved,
zzrevbz like t352r-zzrevbz,
zzrevez like t352r-zzrevez,
zzmed like t352r-zzmed,
zzstat like t352r-zzstat,
zzequi like t352r-zzequi,
zzut like t352r-zzut,
zzatentado like t352r-zzatentado,
zzespejo like t352r-zzespejo,

end of tp_data,
tp_tbl_data type standard table of tp_data.

**
* Constants
**


**
* Data objects (variable declarations and definitions)
**

* Report data to be shown.
data: it_data type standard table of tp_data.

* Heading of the report.
*data: t_heading type slis_t_listheader.

*======================= Selection Screen ==========================*

selection-screen: begin of block b1 with frame title text-t01.
DATA: w_aux_iwerk like t352r-iwerk.
SELECT-OPTIONS s_iwerk for w_aux_iwerk .
DATA: w_aux_revnr like t352r-revnr.
SELECT-OPTIONS s_revnr for w_aux_revnr .
DATA: w_aux_revbd like t352r-revbd.
SELECT-OPTIONS s_revbd for w_aux_revbd .
DATA: w_aux_revbz like t352r-revbz.
SELECT-OPTIONS s_revbz for w_aux_revbz .
DATA: w_aux_reved like t352r-reved.
SELECT-OPTIONS s_reved for w_aux_reved .
DATA: w_aux_revez like t352r-revez.
SELECT-OPTIONS s_revez for w_aux_revez .
DATA: w_aux_revtx like t352r-revtx.
SELECT-OPTIONS s_revtx for w_aux_revtx .
DATA: w_aux_revab like t352r-revab.
SELECT-OPTIONS s_revab for w_aux_revab .
DATA: w_aux_pm_objty like t352r-pm_objty.
SELECT-OPTIONS s_pm_o09 for w_aux_pm_objty .
DATA: w_aux_gewrk like t352r-gewrk.
SELECT-OPTIONS s_gewrk for w_aux_gewrk .
DATA: w_aux_equnr like t352r-equnr.
SELECT-OPTIONS s_equnr for w_aux_equnr .
DATA: w_aux_tplnr like t352r-tplnr.
SELECT-OPTIONS s_tplnr for w_aux_tplnr .
DATA: w_aux_pspel like t352r-pspel.
SELECT-OPTIONS s_pspel for w_aux_pspel .
DATA: w_aux_aufnr like t352r-aufnr.
SELECT-OPTIONS s_aufnr for w_aux_aufnr .
DATA: w_aux_aenam like t352r-aenam.
SELECT-OPTIONS s_aenam for w_aux_aenam .
DATA: w_aux_aedat like t352r-aedat.
SELECT-OPTIONS s_aedat for w_aux_aedat .
DATA: w_aux_ernam like t352r-ernam.
SELECT-OPTIONS s_ernam for w_aux_ernam .
DATA: w_aux_erdat like t352r-erdat.
SELECT-OPTIONS s_erdat for w_aux_erdat .
DATA: w_aux_objnr like t352r-objnr.
SELECT-OPTIONS s_objnr for w_aux_objnr .
DATA: w_aux_revty like t352r-revty.
SELECT-OPTIONS s_revty for w_aux_revty .
DATA: w_aux_objid like t352r-objid.
SELECT-OPTIONS s_objid for w_aux_objid .
DATA: w_aux_zzorig like t352r-zzorig.
SELECT-OPTIONS s_zzorig for w_aux_zzorig .
DATA: w_aux_zzclas like t352r-zzclas.
SELECT-OPTIONS s_zzclas for w_aux_zzclas .
DATA: w_aux_zzpernr like t352r-zzpernr.
SELECT-OPTIONS s_zzpe24 for w_aux_zzpernr .
DATA: w_aux_zztcon like t352r-zztcon.
SELECT-OPTIONS s_zztcon for w_aux_zztcon .
DATA: w_aux_zzconsig like t352r-zzconsig.
SELECT-OPTIONS s_zzco26 for w_aux_zzconsig .
DATA: w_aux_zzrevbd like t352r-zzrevbd.
SELECT-OPTIONS s_zzre27 for w_aux_zzrevbd .
DATA: w_aux_zzreved like t352r-zzreved.
SELECT-OPTIONS s_zzre28 for w_aux_zzreved .
DATA: w_aux_zzrevbz like t352r-zzrevbz.
SELECT-OPTIONS s_zzre29 for w_aux_zzrevbz .
DATA: w_aux_zzrevez like t352r-zzrevez.
SELECT-OPTIONS s_zzre30 for w_aux_zzrevez .
DATA: w_aux_zzmed like t352r-zzmed.
SELECT-OPTIONS s_zzmed for w_aux_zzmed .
DATA: w_aux_zzstat like t352r-zzstat.
SELECT-OPTIONS s_zzstat for w_aux_zzstat .
DATA: w_aux_zzequi like t352r-zzequi.
SELECT-OPTIONS s_zzequi for w_aux_zzequi .
DATA: w_aux_zzut like t352r-zzut.
SELECT-OPTIONS s_zzut for w_aux_zzut .
DATA: w_aux_zzatentado like t352r-zzatentado.
SELECT-OPTIONS s_zzat35 for w_aux_zzatentado .
DATA: w_aux_zzespejo like t352r-zzespejo.
SELECT-OPTIONS s_zzes36 for w_aux_zzespejo .
selection-screen: end of block b1.

*======================== Event Blocks =============================*
at selection-screen.

start-of-selection.
perform get_data using it_data.

end-of-selection.
perform build_alv using it_data ."t_heading.

*======================== Subroutines ==============================*

*&------------------------------------------------------------------*
*& Form get_data
*&------------------------------------------------------------------*
* Gets the information to be shown in the report.
*-------------------------------------------------------------------*
form get_data using t_data type tp_tbl_data.

SELECT t352r~mandt
t352r~iwerk
t352r~revnr
t352r~revbd
t352r~revbz
t352r~reved
t352r~revez
t352r~revtx
t352r~revab
t352r~pm_objty
t352r~gewrk
t352r~equnr
t352r~pspel
t352r~tplnr
t352r~aufnr
t352r~aenam
t352r~aedat
t352r~ernam
t352r~erdat
t352r~objnr
t352r~revty
t352r~objid
t352r~zzorig
t352r~zzclas
t352r~zzpernr
t352r~zztcon
t352r~zzconsig
t352r~zzrevbd
t352r~zzreved
t352r~zzrevbz
t352r~zzrevez
t352r~zzmed
t352r~zzstat
t352r~zzequi
t352r~zzut
t352r~zzatentado
t352r~zzespejo
INTO CORRESPONDING FIELDS OF TABLE t_data
FROM t352r as t352r
WHERE t352r~iwerk in s_iwerk
AND t352r~revnr in s_revnr
AND t352r~revbd in s_revbd
AND t352r~revbz in s_revbz
AND t352r~reved in s_reved
AND t352r~revez in s_revez
AND t352r~revtx in s_revtx
AND t352r~revab in s_revab
AND t352r~pm_objty in s_pm_o09
AND t352r~gewrk in s_gewrk
AND t352r~equnr in s_equnr
AND t352r~tplnr in s_tplnr
AND t352r~pspel in s_pspel
AND t352r~aufnr in s_aufnr
AND t352r~aenam in s_aenam
AND t352r~aedat in s_aedat
AND t352r~ernam in s_ernam
AND t352r~erdat in s_erdat
AND t352r~objnr in s_objnr
AND t352r~revty in s_revty
AND t352r~objid in s_objid
AND t352r~zzorig in s_zzorig
AND t352r~zzclas in s_zzclas
AND t352r~zzpernr in s_zzpe24
AND t352r~zztcon in s_zztcon
AND t352r~zzconsig in s_zzco26
AND t352r~zzrevbd in s_zzre27
AND t352r~zzreved in s_zzre28
AND t352r~zzrevbz in s_zzre29
AND t352r~zzrevez in s_zzre30
AND t352r~zzmed in s_zzmed
AND t352r~zzstat in s_zzstat
AND t352r~zzequi in s_zzequi
AND t352r~zzut in s_zzut
AND t352r~zzatentado in s_zzat35
AND t352r~zzespejo in s_zzes36
.

endform. " get_data


*&------------------------------------------------------------------*
*& Form build_alv
*&------------------------------------------------------------------*
* Builds and display the ALV Grid.
*-------------------------------------------------------------------*
form build_alv using t_data type tp_tbl_data.

* ALV required data objects.
data: w_title type lvc_title,
w_repid type syrepid,
w_comm type slis_formname,
w_status type slis_formname,
x_layout type slis_layout_alv,
t_event type slis_t_event,
t_fieldcat type slis_t_fieldcat_alv,
t_sort type slis_t_sortinfo_alv.



refresh t_fieldcat.
refresh t_event.
refresh t_sort.
clear x_layout.
clear w_title.

* Field Catalog
perform set_fieldcat2 using:
1 'MANDT' 'MANDT' 'T352R' space space 'Mandante' 'Mandante' 'Mandante' 'Mandante' space space space space space space t_fieldcat ,
2 'IWERK' 'IWERK' 'T352R' space space 'CePl' 'CePl' 'CePl' 'CePl' space space space space space space t_fieldcat ,
3 'REVNR' 'REVNR' 'T352R' space space 'Revisión' 'Revisión' 'Revisión' 'Revisión' space space space space space space t_fieldcat ,
4 'REVBD' 'REVBD' 'T352R' space space 'Fe.Inic.rev' 'Fe.Inic.rev' 'Fe.Inic.rev' 'Fe.Inic.rev' space space space space space space t_fieldcat ,
5 'REVBZ' 'REVBZ' 'T352R' space space 'Hora inic.revis' 'Hora inic.revis' 'Hora inic.revis' 'Hora inic.revis' space space space space space space t_fieldcat ,
6 'REVED' 'REVED' 'T352R' space space 'Fecha fin.revis' 'Fecha fin.revis' 'Fecha fin.revis' 'Fecha fin.revis' space space space space space space t_fieldcat ,
7 'REVEZ' 'REVEZ' 'T352R' space space 'Hora fin revis.' 'Hora fin revis.' 'Hora fin revis.' 'Hora fin revis.' space space space space space space t_fieldcat ,
8 'REVTX' 'REVTX' 'T352R' space space 'Denom.revisión' 'Denom.revisión' 'Denom.revisión' 'Denom.revisión' space space space space space space t_fieldcat ,
9 'REVAB' 'REVAB' 'T352R' space space 'Rev. concluida' 'Rev. concluida' 'Rev. concluida' 'Rev. concluida' space space space space space space t_fieldcat ,
10 'PM_OBJTY' 'PM_OBJTY' 'T352R' space space 'Tipo de objeto' 'Tipo de objeto' 'Tipo de objeto' 'Tipo de objeto' space space space space space space t_fieldcat ,
11 'GEWRK' 'GEWRK' 'T352R' space space 'Pto.tbjo.resp.' 'Pto.tbjo.resp.' 'Pto.tbjo.resp.' 'Pto.tbjo.resp.' space space space space space space t_fieldcat ,
12 'EQUNR' 'EQUNR' 'T352R' space space 'Equipo' 'Equipo' 'Equipo' 'Equipo' space space space space space space t_fieldcat ,
13 'TPLNR' 'TPLNR' 'T352R' space space 'Ubicación técn.' 'Ubicación técn.' 'Ubicación técn.' 'Ubicación técn.' space space space space space space t_fieldcat ,
14 'PSPEL' 'PSPEL' 'T352R' space space 'Elemento PEP' 'Elemento PEP' 'Elemento PEP' 'Elemento PEP' space space space space space space t_fieldcat ,
15 'AUFNR' 'AUFNR' 'T352R' space space 'Grafo' 'Grafo' 'Grafo' 'Grafo' space space space space space space t_fieldcat ,
16 'AENAM' 'AENAM' 'T352R' space space 'Modificado por' 'Modificado por' 'Modificado por' 'Modificado por' space space space space space space t_fieldcat ,
17 'AEDAT' 'AEDAT' 'T352R' space space 'Modificado el' 'Modificado el' 'Modificado el' 'Modificado el' space space space space space space t_fieldcat ,
18 'ERNAM' 'ERNAM' 'T352R' space space 'Creado por' 'Creado por' 'Creado por' 'Creado por' space space space space space space t_fieldcat ,
19 'ERDAT' 'ERDAT' 'T352R' space space ' Creado el' ' Creado el' ' Creado el' ' Creado el' space space space space space space t_fieldcat ,
20 'OBJNR' 'OBJNR' 'T352R' space space 'Nº objeto ' 'Nº objeto ' 'Nº objeto ' 'Nº objeto ' space space space space space space t_fieldcat ,
21 'REVTY' 'REVTY' 'T352R' space space 'Cl.revisión' 'Cl.revisión' 'Cl.revisión' 'Cl.revisión' space space space space space space t_fieldcat ,
22 'OBJID' 'OBJID' 'T352R' space space ' PtoTbjo ' ' PtoTbjo ' ' PtoTbjo ' ' PtoTbjo ' space space space space space space t_fieldcat ,
23 'ZZORIG' 'ZZORIG' 'T352R' space space 'Origen Solicitud' 'Origen Solicitud' 'Origen Solicitud' 'Origen Solicitud' space space space space space space t_fieldcat ,
24 'ZZCLAS' 'ZZCLAS' 'T352R' space space 'Clasificación' 'Clasificación' 'Clasificación' 'Clasificación' space space space space space space t_fieldcat ,
25 'ZZPERNR' 'ZZPERNR' 'T352R' space space ' Nº personal' ' Nº personal' ' Nº personal' ' Nº personal' space space space space space space t_fieldcat ,
26 'ZZTCON' 'ZZTCON' 'T352R' space space 'Tipo Consignación' 'Tipo Consignación' 'Tipo Consignación' 'Tipo Consignación' space space space space space space t_fieldcat ,
27 'ZZCONSIG' 'ZZCONSIG' 'T352R' space space 'Núm.Consignación' 'Núm.Consignación' 'Núm.Consignación' 'Núm.Consignación' space space space space space space t_fieldcat ,
28 'ZZREVBD' 'ZZREVBD' 'T352R' space space 'Fecha Inicio Real' 'Fecha Inicio Real' 'Fecha Inicio Real' 'Fecha Inicio Real' space space space space space space t_fieldcat ,
29 'ZZREVED' 'ZZREVED' 'T352R' space space ' Fecha fin Real Rev.' ' Fecha fin Real Rev.' ' Fecha fin Real Rev.' ' Fecha fin Real Rev.' space space space space space space t_fieldcat ,
30 'ZZREVBZ' 'ZZREVBZ' 'T352R' space space 'Hr.Inicio Real Rev.' 'Hr.Inicio Real Rev.' 'Hr.Inicio Real Rev.' 'Hr.Inicio Real Rev.' space space space space space space t_fieldcat ,
31 'ZZREVEZ' 'ZZREVEZ' 'T352R' space space 'Hr.Fin Real Revisión' 'Hr.Fin Real Revisión' 'Hr.Fin Real Revisión' 'Hr.Fin Real Revisión' space space space space space space t_fieldcat ,
32 'ZZMED' 'ZZMED' 'T352R' space space 'Medida de Seguridad' 'Medida de Seguridad' 'Medida de Seguridad' 'Medida de Seguridad' space space space space space space t_fieldcat ,
33 'ZZSTAT' 'ZZSTAT' 'T352R' space space 'Status Revisión' 'Status Revisión' 'Status Revisión' 'Status Revisión' space space space space space space t_fieldcat ,
34 'ZZEQUI' 'ZZEQUI' 'T352R' space space 'Equipos' 'Equipos' 'Equipos' 'Equipos' space space space space space space t_fieldcat ,
35 'ZZUT' 'ZZUT' 'T352R' space space 'Ubicaciones Técnicas' 'Ubicaciones Técnicas' 'Ubicaciones Técnicas' 'Ubicaciones Técnicas' space space space space space space t_fieldcat ,
36 'ZZATENTADO' 'ZZATENTADO' 'T352R' space space 'Código de Atentado' 'Código de Atentado' 'Código de Atentado' 'Código de Atentado' space space space space space space t_fieldcat ,
37 'ZZESPEJO' 'ZZESPEJO' 'T352R' space space 'Revisión Espejo' 'Revisión Espejo' 'Revisión Espejo' 'Revisión Espejo' space space space space space space t_fieldcat .
* Layout
x_layout-zebra = 'X'.

* Events
perform set_events using t_event.

* GUI Status
w_status = ''.
w_repid = sy-repid.


* User commands
w_comm = 'USER_COMMAND'.

* Displays the ALV grid
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = w_repid
it_fieldcat = t_fieldcat
is_layout = x_layout
it_sort = t_sort
i_callback_pf_status_set = w_status
i_callback_user_command = w_comm
i_save = 'X'
it_events = t_event
i_grid_title = w_title
tables
t_outtab = t_data
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. " build_alv.

*&------------------------------------------------------------------*
*& Form set_events
*&------------------------------------------------------------------*
* Sets the events for ALV.
* The TOP_OF_PAGE event is alredy being registered in
* the set_top_page_heading subroutine.
*-------------------------------------------------------------------*
form set_events using t_events type slis_t_event.
data: x_event type line of slis_t_event.
endform.

*&------------------------------------------------------------------*
*& Form set_order
*&------------------------------------------------------------------*
* Adds an entry to the order table.
*-------------------------------------------------------------------*
FORM set_order USING p_fieldname p_tabname p_up p_down p_subtot
t_sort TYPE slis_t_sortinfo_alv.

DATA: x_sort TYPE slis_sortinfo_alv.

CLEAR x_sort.
x_sort-fieldname = p_fieldname.
x_sort-tabname = p_tabname.
x_sort-up = p_up.
x_sort-down = p_down.
x_sort-subtot = p_subtot.
APPEND x_sort TO t_sort.


ENDFORM. "set_order

FORM set_fieldcat2 USING
p_colpos p_fieldname p_ref_fieldname p_ref_tabname
p_outputlen p_noout
p_seltext_m p_seltext_l p_seltext_s p_reptext_ddic p_ddictxt
p_hotspot p_showasicon p_checkbox p_edit
p_dosum
t_fieldcat TYPE slis_t_fieldcat_alv.

DATA: wa_fieldcat TYPE slis_fieldcat_alv.

CLEAR wa_fieldcat.

* General settings
wa_fieldcat-fieldname = p_fieldname.
wa_fieldcat-col_pos = p_colpos.
wa_fieldcat-no_out = p_noout.
wa_fieldcat-hotspot = p_hotspot.
wa_fieldcat-checkbox = p_checkbox.
wa_fieldcat-icon = p_showasicon.
wa_fieldcat-do_sum = p_dosum.

*
IF p_ref_tabname IS INITIAL.
wa_fieldcat-rollname = p_ref_fieldname.
ELSE.
wa_fieldcat-ref_tabname = p_ref_tabname.
IF p_ref_fieldname EQ space.
wa_fieldcat-ref_fieldname = wa_fieldcat-fieldname.
ELSE.
wa_fieldcat-ref_fieldname = p_ref_fieldname.
ENDIF.
ENDIF.

* Set output length.
IF NOT p_outputlen IS INITIAL.
wa_fieldcat-outputlen = p_outputlen.
ENDIF.

* Set text headers.
IF NOT p_seltext_m IS INITIAL.
wa_fieldcat-seltext_m = p_seltext_m.
ENDIF.

IF NOT p_seltext_l IS INITIAL.
wa_fieldcat-seltext_l = p_seltext_l.
ENDIF.

IF NOT p_seltext_s IS INITIAL.
wa_fieldcat-seltext_s = p_seltext_s.
ENDIF.

IF NOT p_reptext_ddic IS INITIAL.
wa_fieldcat-reptext_ddic = p_reptext_ddic.
ENDIF.

IF NOT p_ddictxt IS INITIAL.
wa_fieldcat-ddictxt = p_ddictxt.
ENDIF.

* Set as editable or not.
IF NOT p_edit IS INITIAL.
wa_fieldcat-input = 'X'.
wa_fieldcat-edit = 'X'.
ENDIF.

APPEND wa_fieldcat TO t_fieldcat.

ENDFORM. "set_fieldcat2

*======================== Subroutines called by ALV ================*


*&------------------------------------------------------------------*
*& Form user_command
*&------------------------------------------------------------------*
* Called on user_command ALV event.
* Executes custom commands.
*-------------------------------------------------------------------*
form user_command using r_ucomm like sy-ucomm
rs_selfield type slis_selfield.

endform. "user_command

[restrepo996]

hola,
lo que puedes hacer es:

w_status = ''.

->cambiarlo por TU status.

y en la funcion quedara asi:
i_callback_pf_status_set = w_status