✒️ABAP Los reportes ALV
ABAP Los reportes ALV
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
Sobre el autor
Publicación académica de Carlos Hernandez Salas, en su ámbito de estudios para la Carrera Consultor ABAP.
SAP Master
Carlos Hernandez Salas
Profesión: Licenciatura en Informática - Mexico - Legajo: WA10K
✒️Autor de: 63 Publicaciones Académicas
🎓Egresado de los módulos:
- Máster Material Management en SAP S/4HANA LOGISTIC
- Carrera Consultor en SAP PP
- Carrera Consultor en SAP MM Nivel Avanzado
- Carrera Consultor ABAP Nivel Inicial
Disponibilidad Laboral: FullTime
Presentación:
Iniciar con el desarrollo del lenguaje abap de sap , considero que es una buena alterna- tiva para continuar con mi desarrollo profesional tengo mas de 30 años desarrollando diferentes funciones
Certificación Académica de Carlos Hernandez
