Lips Erweiterung

 TYPES: BEGIN OF ty_s_dldt,
             dldt_from TYPE fsh_adldv,
             dldt_to   TYPE fsh_adldv,
           END OF ty_s_dldt.

    DATA: ls_dldt      TYPE ty_s_dldt,
          ls_dldt_1000 TYPE ty_s_dldt,
          lv_year_cal_week      TYPE scal-week,
          lv_cal_week(2).

    FIELD-SYMBOLS: <lv_xlips> TYPE lipsvb.


    LOOP AT ct_xlips ASSIGNING <lv_xlips>.
      "Für Kalenderwoche mit Theme selecten
      SELECT SINGLE sd_dldt_from sd_dldt_to FROM fsh_sd_periods INTO ls_dldt WHERE
        fsh_season_year = <lv_xlips>-fsh_season_year AND
        fsh_season = <lv_xlips>-fsh_season AND
        fsh_collection = <lv_xlips>-fsh_collection AND
        fsh_theme = <lv_xlips>-fsh_theme.
      "Kalenderwoche aus Datum holen, Format z.B. 201748
      CALL FUNCTION 'DATE_GET_WEEK'
        EXPORTING
          date = ls_dldt-dldt_from
        IMPORTING
          week = lv_year_cal_week.
      "Kalenderwoche extrahieren
      move: lv_year_cal_week+4(2) to lv_cal_week.
      "Kalenderwoche speichern
      <lv_xlips>-/SOL/LE_ALKW = lv_cal_week.

      "mit Theme 1000 selecten
      SELECT SINGLE sd_dldt_from sd_dldt_to FROM fsh_sd_periods INTO ls_dldt_1000 WHERE
        fsh_season_year = <lv_xlips>-fsh_season_year AND
        fsh_season      = <lv_xlips>-fsh_season AND
        fsh_collection  = <lv_xlips>-fsh_collection AND
        fsh_theme       = 1000.

      IF sy-subrc = 0.
        "wenn Eintrag für 1000 gefunden, Datum von/bis speichern
        <lv_xlips>-/SOL/LE_ALDTF = ls_dldt_1000-dldt_from.
        <lv_xlips>-/SOL/LE_ALDTT = ls_dldt_1000-dldt_to.
      ELSE.
        "ansonsten mit Theme, Datum von/bis speichern
        <lv_xlips>-/SOL/LE_ALDTF = ls_dldt-dldt_from.
        <lv_xlips>-/SOL/LE_ALDTT = ls_dldt-dldt_to.
      ENDIF.
      modify ct_xlips from <lv_xlips>.
    ENDLOOP.