Implementar los SELECTION SCREEM 2

REPORT ZCLASE_004.

TABLES: spfli.      “Debemos declarar la tabla que se usará en SELECT-OPTIONS  

“Creamos una TI donde copiamos la tabla completa de la BBDD de SAP

DATA:  BEGIN OF st_spfli.

       INCLUDE STRUCTURE spfli.

DATA: END OF st_spfli.

“Declaramos una segunda TI para obtener los datos que necesitemos del tipo st_spfli

DATA: ti_spfli LIKE TABLE OF st_spfli WITH HEADER LINE.

“Creamos un bloque de SELECTION-SCREEN y pedimos los parámetros

SELECTION-SCREEN:   BEGIN OF BLOCK b01 WITH FRAME TITLE text-001.

PARAMETERS:         porigen TYPE spfli-contryfr OBLIGATORY.

SELECT-OPTIONS:     pdestino FOR spfli-countryto NO INTERVALS OBLIGATORY.

SELECTION-SCREEN:   END OF BLOCK b01.   “Fin de SELECTION-SCREEN

“Seleccionamos todo de la BBDD y se mete donde corresponda de la TI
SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE ti_spfli

             WHERE countryfr = porigen AND countryto = pdestino-low.

“pdestino-low se pone porque lo que guarda en pdestino es una tabla, y

“necesitamos el campo LOW de esta tabla.

“Mostramos la tabla, resultado de la consulta

LOOP AT ti_spfli.

       WRITE: / ti_spfli-carrid,

                    ti_spfli-carrid,

                    ti_spfli-connid,

                    ti_spfli-cityfrom,

                    ti_spfli-cityto,

                    ti_spfli-deptime,

                    ti_spfli-arrtime,

                    ti_spfli-distance.

ENDLOOP.

ACTIVAMOS para ver si tiene fallos y EJECUTAR