[javispill]

Buenas, estoy intentando insertar una columna en un ALV como checkbox pero me sale el botoncito para marcar el registro no el CHECKBOX como tal. Os pongo mi código a ver, eh estado buscando por ahí y entodos los sitios esta sim9ilar a como lo he hecho pero no quiero el boton de seleccionar quiero el checkbox que se pueda marcar con "v".

El campo de la tabla interna con la que saco el alv tiene declarado el campo checkbox como char1.


PERFORM asignar_campo_a_catalogo TABLES p_lt_fcat
USING:

'CHECKBOX' 'X' 'X ' 'X' 'X' ' ' '',
'PERNR' ' ' ' ' ' ' ' ' ' ' 'NºEmpleado',
'ENAME' ' ' ' ' ' ' ' ' ' ' 'Nombre',
'BEGDA' ' ' ' ' ' ' ' ' ' ' 'Fecha Ini.',
'ENDDA' ' ' ' ' ' ' ' ' ' ' 'Fecha Fin.',
'IT' ' ' ' ' ' ' ' ' ' ' 'Infotipo',
'SUBTYPE' ' ' ' ' ' ' ' ' ' ' 'Subtipo',
'ANZHL' ' ' ' ' ' ' ' ' ' ' 'Cantidad',
'BETRG' ' ' ' ' ' ' ' ' ' ' 'Importe'.

*&---------------------------------------------------------------------*
*& Form asignar_campo_a_catalogo
*&---------------------------------------------------------------------*
* Asignar campo al catalogo ALV
*----------------------------------------------------------------------*
* -->P_FIELDNAME Nombre de campo en el reporte
* -->P_KEY Indicador 'campo clave'
* -->P_COL_POS N° columna
*----------------------------------------------------------------------*
FORM asignar_campo_a_catalogo TABLES pt_cat STRUCTURE wa_fcat
USING p_fieldname LIKE wa_fcat-fieldname
p_key LIKE wa_fcat-key
p_col_pos TYPE c
p_input LIKE wa_fcat-input
p_checkbox LIKE wa_fcat-checkbox
p_hotspot LIKE wa_fcat-hotspot
p_reptext_ddic LIKE wa_fcat-reptext_ddic.

STATICS l_col_pos LIKE sy-cucol.

* Asignar atributos de campo en el catalogo de cabecera ALV
CLEAR wa_fcat.
READ TABLE pt_cat INTO wa_fcat
WITH KEY fieldname = p_fieldname.

CHECK sy-subrc EQ 0.

CLEAR wa_fcat-tech.

IF NOT p_reptext_ddic IS INITIAL.
wa_fcat-seltext_l = wa_fcat-seltext_m =
wa_fcat-seltext_s = wa_fcat-reptext_ddic = p_reptext_ddic.
ENDIF.

IF p_col_pos EQ 'X'.
* Inicializo el cont para ordenar las columnas.
l_col_pos = 1.
ELSE.
ADD 1 TO l_col_pos.
ENDIF.

wa_fcat-fieldname = p_fieldname.
wa_fcat-key = p_key.
wa_fcat-col_pos = l_col_pos.
wa_fcat-edit = wa_fcat-input = p_input.
wa_fcat-checkbox = p_checkbox.
wa_fcat-hotspot = p_hotspot.

MODIFY pt_cat FROM wa_fcat INDEX sy-tabix.