www.4AP.de - ABAP Syntaxbeispiel: mehrzeiliges Popup mit bis zu 4 Variablen

Beispielcoding:  (kopieren erlaubt aber auf eigene Gefahr :-))

*
* Coded by Thorsten Neubüser - www.4ap.de
*
* --- Coding nur ausschittsweise !!! ---


* für Fubau RKE_POPUP_TEXT_DECIDE_VARTEXT
  DATA: answer,
        t_params TYPE TABLE OF spar WITH HEADER LINE.
  TYPES: g_s_sapscript_text LIKE tline,
         g_t_sapscript_text TYPE STANDARD TABLE OF g_s_sapscript_text.
  DATA:  t_texttab TYPE g_t_sapscript_text WITH HEADER LINE.
  CLEAR: answer, t_params, t_texttab.
  REFRESH: t_params, t_texttab.


*     Pop-Up mit Variablen versorgen
      t_params-param = 'V2'.
      t_params-value = '4.5:'.
      APPEND t_params.
      t_params-param = 'V3'.
      help_string = wa_ekpo-netwr.
      t_params-value = help_string.
      APPEND t_params.
      t_params-param = 'V4'.
      t_params-value = wa_ekko-waers.
      APPEND t_params.

    t_params-param = 'V1'.
    t_params-value = sy-tcode.
    INSERT t_params INDEX 1.


    t_texttab-tdformat = '*'.   " neue Zeile
    t_texttab-tdline = 'Zeile 1'.
    APPEND t_texttab.
    t_texttab-tdline = 'Zeile 2'.
    APPEND t_texttab.
    t_texttab-tdline = 'Wenn die Buchung unterbrochen werden soll'.
    APPEND t_texttab.
    t_texttab-tdformat = ' '.   " weiter in der vorhandenen Zeile
    t_texttab-tdline = 'bitte Abbrechen (F12) klicken.'.
    APPEND t_texttab.


    CALL FUNCTION 'RKE_POPUP_TEXT_DECIDE_VARTEXT'
      EXPORTING
        options              = 'EC' " weiter, cancel
*       geeignete OBJECT_ID und OBJECT aus Tabelle DOKTL suchen!!
*       oder mit der SE61 eigenes Z-Objekt anlegen
*       ACHTUNG nicht den grafischen PC-Editor verwenden (Platzhalter)
        object_id            = 'DE'
*        object               = 'KE0C153'
*        object               = 'KE/NC000'
        object               = 'ZMM_MELDUNG_01'
*        NA_SHORTTEXT         = 'das ist NA_SHORTTEXT'
        titel                = 'Mehrzeiliges Popup mit 4 Variablen'(002)
     IMPORTING
        answer               = answer
     TABLES
*      Parameter &V1& &V2& &V3& und &V4&
       t_params             = t_params[]
*      Tabelle &T&
       t_texttab            = t_texttab[]
     EXCEPTIONS
       docu_not_found       = 1
       OTHERS               = 2.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    IF answer = 'C'.
*     bei Abbruch wird der OK-Code umgeschossen
      sy-ucomm = 'ENTE'.
    ENDIF.



* in der SE61 ist das Datenelement 'ZMM_MELDUNG_01' anzulegen.
* Dabei ist der Editor im 'klassischen Modus' (mit dem Menu-Befehl
*  Springen - Editor wechseln) zu betreiben. Sonst wird das '&' gekapselt!
* Im Datenlement könnte folgendes stehen:

U1   Während der Prüfungen sind folgende Fehler aufgetreten:
AS   &T&
U1   Weitere Vorgehensweise
AS   Wenn die Sicherung des Beleges abgebrochen werden soll bitte ABBRECHEN
     (F12) Klicken. Ansonsten die obigen Meldungen mit dem grünen Haken
     bestätigen.
AS
AS   Verarbeitungshinweise: &V1& &V2& &V3& &V4&

* Der String '&T&' wird zur Laufzeit mit der Tabelle t_texttab ersetzt
* Die Variablen mit den oben zugewiesenen Inhalten