21 Eylül 2008 Pazar

Display message

  DATA: mesTAB TYPE TABLE OF BDCMSGCOLL with header line.
  DATA: W_TEXTOUT LIKE T100-TEXT.


   LOOP AT MESTAB WHERE MSGTYP = 'S' or MSGTYP = 'E'.

          CALL FUNCTION 'MESSAGE_TEXT_BUILD'
            EXPORTING
                MSGID                      =  mestab-msgid
                MSGNR                     =  mestab-msgnr
                MSGV1                     =  mestab-msgv1
                MSGV2                     =  mestab-msgv2
                MSGV3                     =  mestab-msgv3
                MSGV4                     =  mestab-msgv4
           IMPORTING
                MESSAGE_TEXT_OUTPUT       = W_TEXTOUT.


CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
  EXPORTING
*   TITEL              = ' '
    TEXTLINE1          = W_TEXTOUT
*   TEXTLINE2          = ' '
*   START_COLUMN       = 25
*   START_ROW          = 6
          .

   ENDLOOP.

Hiç yorum yok: