CLASS_METHOD

  method ZBC400_VUELOSDIA_13A.
    REFRESH ES_VUELO.
    DATA: IT_VUELOSDIA TYPE ZBC400GS_VUELOSDIA.

    SELECT SFLIGHT~CARRID SFLIGHT~CONNID FLDATE CITYFROM CITYTO
    FROM SFLIGHT INNER JOIN SPFLI
    ON SFLIGHT~CARRID = SPFLI~CARRID AND SFLIGHT~CONNID = SPFLI~CONNID
    INTO TABLE IT_VUELOSDIA
    WHERE SFLIGHT~CARRID = IV_CARRID AND SFLIGHT~FLDATE = IV_FECHA.

*   MUESTRA DE COMO SE HARÍA LA MISMA OPERACIÓN SIN TENER QUE USAR EL INNER JOIN. USANDO DOS CONSULTAS Y UN WORKAREA AL QUE SE HACE APPEND EN LA TABLA ES_VUELO.
*    DATA: WA_VUELOSDIA LIKE LINE OF IT_VUELOSDIA.

*    SELECT CARRID CONNID FLDATE
*    FROM SFLIGHT
*    INTO CORRESPONDING FIELDS OF TABLE IT_VUELOSDIA
*    WHERE CARRID = IV_CARRID AND FLDATE = IV_FECHA.

*    IF sy-subrc <> 0.
*      RAISE NO_EXISTE_VUELO.
*    ELSE.
*      LOOP AT IT_VUELOSDIA INTO WA_VUELOSDIA.
*        SELECT SINGLE CITYFROM CITYTO
*        FROM SPFLI
*        INTO CORRESPONDING FIELDS OF WA_VUELOSDIA
*        WHERE CARRID = WA_VUELOSDIA-CARRID AND CONNID = WA_VUELOSDIA-CONNID.

*        APPEND WA_VUELOSDIA TO ES_VUELO.
*      ENDLOOP.
*    ENDIF.

    IF sy-subrc <> 0.
      RAISE NO_EXISTE_VUELO.
    ELSE.
      CLEAR ES_VUELO.
      ES_VUELO = IT_VUELOSDIA.
    ENDIF.
  endmethod.