*&---------------------------------------------------------------------*
*& Report  ZIT1821A_FLUGAUSWERTUNG_282
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZIT1821A_FLUGAUSWERTUNG_282.
TABLES: SCARR, SPFLI, SFLIGHT,SBOOK,SCUSTOM.


SELECT-OPTIONS: s_carrid FOR scarr-carrid,
                s_connid FOR spfli-connid.

TYPES: BEGIN OF gst_gesinfo,
       carrid TYPE scarr-carrid,
       carrname TYPE scarr-carrname,
       END OF gst_gesinfo,
       BEGIN OF gst_fluginfo,
       connid TYPE spfli-connid,
       cityfrom TYPE spfli-cityfrom,
       cityto TYPE spfli-cityto,
       planetype TYPE sflight-planetype,
       fldate TYPE sflight-fldate,
       anz_pas TYPE i,
       END OF gst_fluginfo,
       BEGIN OF gst_passagier,
         customid TYPE sbook-customid,
         name TYPE scustom-name,
         city TYPE scustom-city,
       END OF gst_passagier.

DATA: gs_gesinfo TYPE gst_gesinfo,
      gs_fluginfo TYPE gst_fluginfo,
      gs_passagier TYPE gst_passagier.

PARAMETERS: p_anfdat TYPE sflight-fldate,
            p_enddat TYPE sflight-fldate,
            p_kdata TYPE boolean AS CHECKBOX.

START-OF-SELECTION.
  IF p_anfdat IS NOT INITIAL AND p_enddat IS NOT INITIAL.




        SELECT  scarr~carrid scarr~carrname spfli~connid spfli~cityfrom spfli~cityto sflight~planetype sflight~fldate
          INTO (  gs_gesinfo-carrid, gs_gesinfo-carrname, gs_fluginfo-connid, gs_fluginfo-cityfrom, gs_fluginfo-cityto, gs_fluginfo-planetype, gs_fluginfo-fldate )
          FROM spfli
          INNER JOIN sflight
          ON sflight~connid = spfli~connid
          INNER JOIN scarr
          ON scarr~carrid = sflight~carrid
          WHERE spfli~connid IN s_connid AND sflight~fldate BETWEEN p_anfdat AND p_enddat AND scarr~carrid IN s_carrid.
 WRITE:/,gs_gesinfo-carrid,' ',gs_gesinfo-carrname.
          IF sy-subrc = 0.
            SELECT count( * )
              INTO ( gs_fluginfo-anz_pas )
              FROM SBOOK
              WHERE SBOOK~connid = gs_fluginfo-connid AND SBOOK~fldate = gs_fluginfo-fldate.

            WRITE:/,'  ',gs_fluginfo-connid,' ',gs_fluginfo-cityfrom,' ',gs_fluginfo-cityto,' ',gs_fluginfo-planetype,' ',gs_fluginfo-fldate,' ',gs_fluginfo-anz_pas.

            IF p_kdata = abap_true.
              SELECT scustom~name scustom~city
                INTO (gs_passagier-name, gs_passagier-city)
                FROM scustom
                INNER JOIN sbook
                on sbook~customid = scustom~id
                WHERE sbook~connid = gs_fluginfo-connid AND sbook~fldate = gs_fluginfo-fldate.

                WRITE:/,'     ',gs_passagier-name,' ',gs_passagier-city.
              ENDSELECT.
            ENDIF.
          ELSE.
            WRITE:/,'Verbidungscode existiert nicht'.
          ENDIF.
        ENDSELECT.



  ELSE.
    WRITE:/,'Bitte Datumsdaten angeben'.
  ENDIF.