Como guardar los CHECK de un ALV en una Tabla

[pafú]

Con dos opciones:
- Con un boton que muestre los datos marcados
- Haciendo doble click sobre un registro.

Lo primero es la funcion que muestra el alv create un form 'user_command'.
Y creas el siguiente form.

FORM alv_user_command USING p_r_ucomm LIKE sy-ucomm
p_rs_selfield TYPE slis_selfield.

DATA: d_contador TYPE i.

CASE p_r_ucomm.

WHEN '&IC1'. -> Esto es para el doble click

READ TABLE i_salida INDEX p_rs_selfield-tabindex. -> itab del ALV

SELECT * FROM ziber_ta_np02
WHERE kblnr = i_salida-belnr
AND refbukrs = i_salida-bukrs
AND kblpos = i_salida-blpos
AND refgjahr = i_salida-gjahr.

IF sy-subrc = 0.

MOVE-CORRESPONDING ziber_ta_np02 TO i_detalle.

i_detalle-gjahr = i_salida-gjahr.
i_detalle-belnr = i_salida-belnr.
i_detalle-blpos = i_salida-blpos.
i_detalle-pspnr = i_salida-pspnr.
i_detalle-fistl = i_salida-fistl.
i_detalle-fipos = i_salida-fipos.
i_detalle-geber = i_salida-geber.
i_detalle-lifnr = i_salida-lifnr.
i_detalle-wtges = i_salida-wtges.
i_detalle-belnro = ziber_ta_np02-belnr.

IF NOT ziber_ta_np02-augdt IS INITIAL.

i_detalle-ejerp = ziber_ta_np02-augdt.

ELSE.

i_detalle-ejerp = ''.

ENDIF.

i_detalle-importp = ziber_ta_np02-dmbtr.

APPEND i_detalle.

ENDIF.

ENDSELECT.

PERFORM alv_detalle.

WHEN '&VER'. -> Este seria tu caso. Todos los registros seleccionados

CLEAR i_detalle. REFRESH i_detalle.

READ TABLE i_salida INDEX p_rs_selfield-tabindex.
* recorremos todos los registros que esten marcados
LOOP AT i_salida WHERE marca = 'X'.
** cada vez que entre contamos para saber si al menos hay uno pinchado
d_contador = d_contador + 1.

SELECT * FROM ziber_ta_np02
WHERE kblnr = i_salida-belnr
AND refbukrs = i_salida-bukrs
AND kblpos = i_salida-blpos
AND refgjahr = i_salida-gjahr.

IF sy-subrc = 0.

MOVE-CORRESPONDING ziber_ta_np02 TO i_detalle.

i_detalle-gjahr = i_salida-gjahr.
i_detalle-belnr = i_salida-belnr.
i_detalle-blpos = i_salida-blpos.
i_detalle-pspnr = i_salida-pspnr.
i_detalle-fistl = i_salida-fistl.
i_detalle-fipos = i_salida-fipos.
i_detalle-geber = i_salida-geber.
i_detalle-lifnr = i_salida-lifnr.
i_detalle-wtges = i_salida-wtges.
i_detalle-belnro = ziber_ta_np02-belnr.

IF NOT ziber_ta_np02-augdt IS INITIAL.

i_detalle-ejerp = ziber_ta_np02-augdt.

ELSE.

i_detalle-ejerp = ''.

ENDIF.

i_detalle-importp = ziber_ta_np02-dmbtr.


APPEND i_detalle.

ENDIF.

ENDSELECT.

ENDLOOP.

*si no hay ningun reg seleccionado para visualizar, mensaje!
IF ( d_contador = 0 ).

MESSAGE i002(z_mensa).
* sino al ALV para visualizar el detalle.
ELSE.

PERFORM alv_detalle.

ENDIF.

ENDCASE.

ENDFORM. " alv_user_command