Como guardar los CHECK de un ALV en una Tabla

[projasmad]

Hola amigos, tengo un problema super urgente, necesito guardar todos los registros que chequeo en un ALV para luego armar un archivo plano....necesito saber como puedo guardar los registros chequeados en mi tabla de salida......
Les agradecere cualkier ayuda, graciass.

[pafú]

Aqui te pongo un ejemplo

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