Ya ta corregido, el problema era por la constante CHECKBOX que colocabas en el layout.
REPORT ZPRUEBA_1 MESSAGE-ID SABAPDOCU.
**************************************************
**********************
* TAULES DE BASE DE DADES *
**************************************************
**********************
TABLES: AFRU.
**************************************************
**********************
* TYPES *
**************************************************
**********************
**************************************************
**********************
* TYPE-POOLS *
**************************************************
**********************
TYPE-POOLS: SLIS.
**************************************************
**********************
* VARIABLES *
**************************************************
**********************
DATA: V_LINES TYPE I.
DATA: G_REPID LIKE SY-REPID.
*VARIABLES ALV
DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: WA_FIELDCAT TYPE LINE OF SLIS_T_FIELDCAT_ALV.
**************************************************
**********************
* TAULES INTERNES *
**************************************************
**********************
DATA: BEGIN OF IT_AFRU OCCURS 0,
AUFNR LIKE AFRU-AUFNR,
RMZHL LIKE AFRU-RMZHL,
LMNGA LIKE AFRU-LMNGA,
MEINH LIKE AFRU-GMEIN,
END OF IT_AFRU.
DATA: BEGIN OF IT_OUT OCCURS 0,
AUFNR LIKE AFRU-AUFNR,
RMZHL LIKE AFRU-RMZHL,
LMNGA LIKE AFRU-LMNGA,
MEINH LIKE AFRU-MEINH,
END OF IT_OUT.
**************************************************
**********************
* PANTALLA DE SELECCIÓ *
**************************************************
**********************
*INSERTAR NUMERO DE OF
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_AUFNR LIKE AFRU-AUFNR. "NÚMERO DE OF
SELECTION-SCREEN END OF BLOCK b1.
**************************************************
***********************
* AT SELECTION-SCREEN *
**************************************************
***********************
**************************************************
***********************
* PROGRAMA PRINCIPAL *
**************************************************
***********************
START-OF-SELECTION.
G_REPID = SY-REPID.
SELECT AUFNR RMZHL LMNGA MEINH
FROM AFRU
INTO CORRESPONDING FIELDS OF TABLE IT_AFRU
WHERE AUFNR = P_AUFNR.
LOOP AT IT_AFRU.
IT_AFRU-MEINH = 'UN'.
APPEND IT_AFRU TO IT_OUT.
ENDLOOP.
*PREPARAMOS EL ALV-GRID
DESCRIBE TABLE IT_OUT LINES V_LINES.
CASE V_LINES.
WHEN 0.
MESSAGE S888 WITH 'No hay nada'.
EXIT.
WHEN OTHERS.
PERFORM CATALEG_ALV.
PERFORM LAYOUT_ALV USING GS_LAYOUT.
PERFORM MOSTRAR_ALV.
ENDCASE.
**************************************************
**********************
* FORM: CATALEG_ALV *
* *
**************************************************
**********************
FORM CATALEG_ALV.
CLEAR IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'RMZHL'.
WA_FIELDCAT-SELTEXT_L = 'Nº de Palet'.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'LMNGA'.
WA_FIELDCAT-SELTEXT_L = 'Cantidad'.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'MEINH'.
WA_FIELDCAT-SELTEXT_L = 'Unidad de medida'.
WA_FIELDCAT-OUTPUTLEN = 15.
WA_FIELDCAT-JUST = 'R'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
ENDFORM. "CATALEG_ALV
**************************************************
**********************
* FORM: LAYOUT_ALV *
* *
**************************************************
**********************
FORM LAYOUT_ALV USING LS_LAYOUT TYPE SLIS_LAYOUT_ALV.
* LS_LAYOUT-ZEBRA = 'X'.
* LS_LAYOUT-BOX_FIELDNAME = 'CHECKBOX'.
ENDFORM. "LAYOUT_ALV
**************************************************
***********************
* FORM: FUNCIÓ PER A MOSTRAR L'ALV PER PANTALLA *
* *
**************************************************
***********************
FORM MOSTRAR_ALV.
DATA : gt_events TYPE slis_t_event,
ls_events TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = gt_events.
READ TABLE gt_events INTO ls_events WITH KEY name = 'USER_COMMAND'.
ls_events-form = 'USER_COMMAND'.
MODIFY gt_events FROM ls_events INDEX sy-tabix TRANSPORTING form.
CLEAR ls_events.
READ TABLE gt_events INTO ls_events WITH KEY name = 'PF_STATUS_SET'.
ls_events-form = 'SET_PF_STATUS'.
MODIFY gt_events FROM ls_events INDEX sy-tabix TRANSPORTING form.
* SET PF-STATUS 'STATUS_ALV'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IT_FIELDCAT = IT_FIELDCAT
* IS_LAYOUT = GS_LAYOUT
IT_EVENTS = gt_events[]
TABLES
T_OUTTAB = IT_OUT .
IF SY-SUBRC <> 0.
ENDIF.
ENDFORM. "MOSTRAR_ALV
**************************************************
***********************
* FORM: SET_PF_STATUS *
* *
**************************************************
***********************
FORM SET_PF_STATUS USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'STATUS_ALV'.
ENDFORM. " SET_PF_STATUS
**************************************************
************************
* FORM: GENERAR_FICHERO *
* *
**************************************************
************************
FORM GENERAR_FICHERO.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
filename = 'C:\texto.txt'
filetype = 'ASC'
TABLES
data_tab = IT_OUT
EXCEPTIONS
file_open_error = 1
file_write_error = 2
invalid_filesize = 3
invalid_type = 4
no_batch = 5
unknown_error = 6
invalid_table_width = 7
gui_refuse_filetransfer = 8
customer_error = 9
OTHERS = 10.
ENDFORM. "GENERAR_FICHERO
**************************************************
***********************
* FORM: USER_COMMAND *
* *
**************************************************
***********************
FORM USER_COMMAND USING RF_UCOMM LIKE SY-UCOMM
RS TYPE SLIS_SELFIELD.
CASE RF_UCOMM.
WHEN 'PROCESAR'.
RS-REFRESH = 'X'.
PERFORM GENERAR_FICHERO.
WHEN 'BACK'.
LEAVE TO LIST-PROCESSING.
ENDCASE.
ENDFORM. "user_command
Cualquier inquietud no dudes en consultar ... suerte !!!
