ABAP - Traer las casillas de verificacion activadas-check

Hola a todos:

Le cree a un reporte tipo ALV, una casilla de verificacion para que el usuario la seleccione, osea le ponga un chulito "check", mi pregunta es como hago para traer ese chulito a mi tabla interna.

Osea se genera el reporte en ALV, luego el usuario marca con un "check" la casilla de verificacion para ciertos materiales y luego por medio de un boton yo debo recoger esos "check" con su respectivo mateial y hacer otro proceso.

La Pregunta es: como hago para recoger estos check activados y traerlos a mi prg ???

En el Alv la casilla de verificacion la cree asi:

FORM LAYOUT.
gs_layout-colwidth_optimize = 'X'.
gs_layout-zebra = 'X'.
gs_layout-box_fieldname = 'CASILLAV'.
ENDFORM.

Muchas gracias por la atencion

GEMA
COLOMBIA

hoa tengo un ejemplo, debo seleccionar distintas enfermedades odontologicas con casillas de verificacion, y si por ejempl otengo 10 casillas y solo activos 4 como hago que las seleccionadas se guarden en mysql? gracias

Saludos..

Te anexo un desarollo que hace exactamente lo que necesitas..

Rutina que imprime los datos seleccionados..

FORM print_registros_c .

v_layout-lights_fieldname = ''.
v_layout-zebra = 'X'.
v_layout-box_fieldname = 'CHECK'.
DATA :
lt_sort TYPE slis_t_sortinfo_alv,
ls_sort TYPE slis_sortinfo_alv.

PERFORM prepare_sort_table CHANGING vs_sort.
SORT i_mcha BY matnr charg.
* ABAP List Viewer

*LA RUTINA USER_COMAND RECOJO EL VALOR DEL BOTON PARA *EJECUTAR EL SIGUIENTE PROCESO
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = sy-cprog
i_callback_user_command = 'USER_COMMAND'
i_callback_pf_status_set = 'PF_STATUS_SET'
it_fieldcat = v_fieldcat
* i_structure_name = 'CDHDR'
is_layout = v_layout
* it_event_exit = lt_event_exit
TABLES
t_outtab = i_mcha.

* EXPORTING
* i_callback_program = lv_repid
** i_grid_settings = w_settings
* i_callback_pf_status_set = 'PF_STATUS_SET'
* i_callback_user_command = 'USER_COMMAND'
** i_structure_name = 'I_SAIDA'
* is_layout = v_layout
*
** it_sort = pt_sort[]
* i_default = c_x
* i_save = c_a
** is_variant = w_variant
** it_events = i_events[]
* it_excluding = i_excluding
*
** is_print = v_gs_print
* TABLES
* t_outtab = i_mcha
* EXCEPTIONS
* program_error = 1
* OTHERS = 2.


ENDFORM. " print_registros_c

FORM user_command USING u_ucomm LIKE sy-ucomm
us_selfield TYPE slis_selfield. "#EC CALLED

DATA: x_wertn LIKE cawn-atwrt. "X_WERT without thousands sep

CASE u_ucomm.
WHEN '&DATA_SAVE'.
CLEAR i_mcha.
*Valido que al menos tenga un checkboxseleccionado en mi tabla interna.
READ TABLE i_mcha WITH KEY check = 'X'.
IF sy-subrc NE 0.
CLEAR i_mcha.
MESSAGE S001(00) WITH TEXT-S01 .
ELSE.
PERFORM confirma_carga USING v_answer.
CHECK v_answer EQ '1'.
v_flag2 = 'X'.
CLEAR i_mcha.
********AQUI TOMO UNICAMENTE LOS CHECKBOX SELECCIONADOS...
LOOP AT i_mcha WHERE check EQ 'X'.
REFRESH: i_ausp..
CLEAR: mch1,ausp,i_ausp,v_flag,v_cuobj_bm,x_wertn.

IF i_mcha-c_box GT 0.

x_wertn = i_mcha-c_box.

PERFORM valida_caract TABLES i_ausp
USING
i_mcha-matnr i_mcha-charg
v_cuobj_bm v_flag
x_wertn.
CASE v_flag.
WHEN 'I'.
PERFORM insert_caract TABLES i_ausp
USING
v_cuobj_bm x_wertn
i_mcha-charg v_comen
v_order .
WHEN 'U'.
PERFORM update_caract TABLES i_ausp
USING
v_cuobj_bm x_wertn
i_mcha-charg v_comen
v_order .
WHEN 'X'.
PERFORM text_caract USING v_comen i_mcha-charg.
ENDCASE.
i_mcha-comen = v_comen.
ELSE.
i_mcha-comen = TEXT-001.
ENDIF.
MODIFY i_mcha.
CLEAR i_mcha.

ENDLOOP.

IF v_flag2 EQ 'X'.
PERFORM display_registros_pro_c.
ENDIF.

ENDIF.
ENDCASE.

ENDFORM. " USER_COMMAND

es solo parte del programa..
Si necesitas mas especifico la informacion con todo gusto:
Hugo Garcia M.-
[email protected].