Schlagwort: TJ02

* IH-Auftrag
PARAMETERS: p_aufnr TYPE aufk-aufnr.

START-OF-SELECTION.

  SELECT FROM aufk AS a
    INNER JOIN jest AS j ON a~objnr = j~objnr
    INNER JOIN jsto AS o ON j~objnr = o~objnr
    INNER JOIN tj02 AS t2 ON j~stat = t2~istat
    INNER JOIN tj02t AS t ON j~stat = t~istat
*    LEFT OUTER JOIN tj04 AS t4 ON o~obtyp = t4~obtyp AND j~stat = t4~istat
    FIELDS
      a~aufnr,
      a~auart,
      j~objnr,
      o~obtyp,
      o~stsma,
      t~txt04,
      t~txt30
    WHERE a~aufnr = @p_aufnr
      AND j~inact = @abap_false
      AND t~spras = @sy-langu
      AND t2~nodis = @abap_false " keine internen Statuswerte
    INTO TABLE @DATA(it_data).

  IF sy-subrc = 0.
    cl_demo_output=>write_data( it_data ).

*   HTML-Code vom Demo-Output holen
    DATA(lv_html) = cl_demo_output=>get( ).

*   Daten im Inline-Browser im SAP-Fenster anzeigen
    cl_abap_browser=>show_html( EXPORTING title       = 'Daten'
                                          html_string = lv_html
                                          container   = cl_gui_container=>default_screen ).

*   cl_gui_container=>default_screen erzwingen
    WRITE: space.
  ENDIF.