Bune dia, dejo el codigo de un ALV muy sencillo
Saludos
*&---------------------------------------------------------------------*
*& Report ZREPORTE_INT_VUELOS
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zreporte_int_vuelos.
* Declaración de datos
* Tablas internas
DATA: ti_sflight TYPE STANDARD TABLE OF sflight,
ti_scarr TYPE STANDARD TABLE OF scarr.
* Estructuras
DATA: wa_sflight LIKE LINE OF ti_sflight,
wa_scarr LIKE LINE OF ti_scarr,
v_carrid TYPE s_carr_id.
*----------------------------------------------------------------------*
START-OF-SELECTION.
*----------------------------------------------------------------------*
* Cargar datos en tabla interna
PERFORM cargar_datos_en_tablas.
* Impresión del reporte
PERFORM imprimir_reporte_vuelos.
*----------------------------------------------------------------------*
AT LINE-SELECTION.
*----------------------------------------------------------------------*
v_carrid = sy-lisel(3).
PERFORM generar_reporte_nivel2.
*----------------------------------------------------------------------*
TOP-OF-PAGE DURING LINE-SELECTION.
*----------------------------------------------------------------------*
WRITE:/ 'Detalle de los Vuelos', sy-uline.
*&---------------------------------------------------------------------*
*& Form IMPRIMIR_TABLA
*&---------------------------------------------------------------------*
FORM imprimir_reporte_vuelos.
LOOP AT ti_sflight INTO wa_sflight.
FORMAT COLOR COL_TOTAL INTENSIFIED.
WRITE:/ wa_sflight-carrid,
wa_sflight-connid,
wa_sflight-fldate,
wa_sflight-price,
wa_sflight-currency .
ENDLOOP.
ENDFORM. " IMPRIMIR_TABLA
*&---------------------------------------------------------------------*
*& Form GENERAR_REPORTE_NIVEL2
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM generar_reporte_nivel2 .
READ TABLE ti_scarr INTO wa_scarr WITH KEY carrid = v_carrid.
IF sy-subrc EQ 0.
FORMAT COLOR COL_HEADING INTENSIFIED.
WRITE:/1(57) sy-uline.
WRITE:/1(1) sy-vline,
2(27) 'Denominación compañía aérea',
29(1) sy-vline,
30(27) wa_scarr-carrid,
57(1) sy-vline.
WRITE:/1(1) sy-vline,
2(27) 'Nombre compañía aérea',
29(1) sy-vline,
30(27) wa_scarr-carrname,
57(1) sy-vline.
WRITE:/1(1) sy-vline,
2(27) 'Moneda compañía aérea',
29(1) sy-vline,
30(27) wa_scarr-currcode,
57(1) sy-vline.
WRITE:/1(1) sy-vline,
2(27) 'URL compañía aérea',
29(1) sy-vline,
30(27) wa_scarr-url,
57(1) sy-vline.
WRITE:/1(57) sy-uline.
ENDIF.
ENDFORM. " GENERAR_REPORTE_NIVEL2
*&---------------------------------------------------------------------*
*& Form CARGAR_DATOS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM cargar_datos_en_tablas.
CLEAR ti_sflight.
REFRESH ti_sflight.
SELECT *
FROM sflight
INTO TABLE ti_sflight.
CLEAR ti_scarr.
REFRESH ti_scarr.
SELECT *
FROM scarr
INTO TABLE ti_scarr.
ENDFORM. " CARGAR_DATOS