SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Multiline popup with up to 4 variables



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> Dialog Programming
View previous topic :: View next topic  
Author Message
vga
Мастер
Мастер


Age: 160
Joined: 04 Oct 2007
Posts: 1218
Location: Санкт-Петербург
PostPosted: Sat Nov 29, 2008 4:16 pm    Post subject: Multiline popup with up to 4 variables Reply with quote
Code:
* 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 the SE61 is the data element 'ZMM_MELDUNG_01' them.
* This is the editor in 'classic mode' (with the menu command
* Jump - Editor switch) to operate. Otherwise, the '&' encapsulated!
* In Datenlement could write:

U1 During the tests, the following error occurred:
AS & T &
More U1 approach
AS if securing the document to be canceled please Cancel
(F12) Click. Apart from the above reports with the green hook
Confirm.
AS
AS processing Notes: V1 and V2 & & & & & & V3 & V4

* The string '& & T' is for the duration of the table with t_texttab replaced
* The variables assigned to the above content
Back to top
View user's profile Send private message Blog Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> Dialog Programming All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.