Schlagwort: TTXID

PARAMETERS: p_tdobj TYPE ttxob-tdobject DEFAULT 'TEXT'.
PARAMETERS: p_tdname TYPE stxh-tdname MATCHCODE OBJECT icl_stxh DEFAULT 'ZTEST1'.
PARAMETERS: p_tdid TYPE ttxid-tdid DEFAULT 'ST'.

START-OF-SELECTION.

  DATA(lv_header) = VALUE thead( tdobject   = p_tdobj
                                 tdname     = p_tdname
                                 tdid       = p_tdid
                                 tdlinesize = '132'
                                 tdspras    = sy-langu ).

* ' ' keine Aktion
* 'I' Insert: Textbaustein wurde neu angelegt
* 'U' Update: Textbaustein wurde verändert
* 'D' Delete: Textbaustein wurde gelöscht
  DATA: lv_function TYPE char1.
* FUNCTION
*  ' ' keine Aktion
*  'I' Insert: Textbaustein wurde neu angelegt
*  'U' Update: Textbaustein wurde verändert
*  'D' Delete: Textbaustein wurde gelöscht
* USEREXIT
*  'E' Exit: "Text Beenden"
*  'B' Back: "Springen Zurück"
*  'C' Cancel: "Bearbeiten Abbrechen"
*  'P' Previous: "Voriger Text" (Nur in Oberfläche TA)
*  'N' Next: "Nächster Text" (Nur in Oberfläche TA)
*PCEDITOR
  DATA: lv_result TYPE itcer.

  DATA: it_lines TYPE tline_t.

* Texterstellung Text bearbeiten in Texteditor
  CALL FUNCTION 'EDIT_TEXT'
    EXPORTING
      header        = lv_header
      save          = abap_false " Button "Speichern" im Editor ausblenden
      line_editor   = abap_false " abap_true -> SAP-Script, sonst Inline-Word-Editor (PC-Editor)
    IMPORTING
      function      = lv_function
      result        = lv_result
    TABLES
      lines         = it_lines
    EXCEPTIONS
      id            = 1
      language      = 2
      linesize      = 3
      name          = 4
      object        = 5
      textformat    = 6
      communication = 7
      OTHERS        = 8.
  IF sy-subrc = 0.
    cl_demo_output=>write_data( lv_header ).
    cl_demo_output=>write_data( lv_function ).
    cl_demo_output=>write_data( lv_result ).
    cl_demo_output=>write_data( it_lines ).

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

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