
*&---------------------------------------------------------------------*
*& Report ZSCH_013_SPEISEKARTE_DYNPRO
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zsch_012_speisekarte_dynpro.
TABLES: zsch_013_ts_speise.
TYPES: gtt_speisen TYPE STANDARD TABLE OF zsch_013_ts_speise
WITH NON-UNIQUE DEFAULT KEY.
DATA: gt_speisen TYPE gtt_speisen,
gv_idx TYPE i VALUE 1,
ok_code TYPE sy-ucomm.
PARAMETERS pa_carr TYPE s_carr_id DEFAULT 'LH' OBLIGATORY.
PARAMETERS pa_lang TYPE spras DEFAULT sy-langu OBLIGATORY.

START-OF-SELECTION.
SELECT m~carrid, m~mealnumber, m~mealtype, t~text
FROM smeal AS m
LEFT OUTER JOIN smealt AS t
ON m~carrid = t~carrid
AND m~mealnumber = t~mealnumber
AND t~sprache = @pa_lang
WHERE m~carrid = @pa_carr
INTO CORRESPONDING FIELDS OF TABLE @gt_speisen.

IF gt_speisen IS INITIAL.
MESSAGE 'Heute keine Speisekarte  kommen Sie morgen wieder.' TYPE 'S'.
RETURN. 
ENDIF.
END-OF-SELECTION. 
CALL SCREEN 100.