Wanted a popup text box

Question

Hi all,
I want a popup text box.
My logic is like this:
when ever i select one record and press pushbutton which is located at application toolbar, than one popup text box must display so that they will write some reason for that action and that reason must save in the "ZTABLE".
thanking u...
regards,
giri.

Answer 1

Hi, See this. it is usefull for you as per your requirement.
Step 1. you have to create text object using SE75.
Step 2. follow below program of text box editor.
step 3. call this editor function when user press button.
Step 4 .you need to create screen as per program for container.
program is:
*& Module pool       ZEDITOR1
*& Program to Read text, edit text and save text using editor screen
*& For this program create sap script object using SE75
PROGRAM  ZEDITOR1.
*Varriable declaration
DATA: G_CONTAINER1 TYPE SCRFNAME VALUE 'TEXT' ,
      TEXT1  TYPE REF TO CL_GUI_TEXTEDIT , " declaration to create object
      G_CUSTOM_CONTAINER1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER .
CONSTANTS: LINE_LENGTH TYPE I VALUE 256.
DATA: OK_CODE LIKE SY-UCOMM.
DATA : ED_NAME   LIKE  THEAD-TDNAME ,
       ED_OBJECT LIKE  THEAD-TDOBJECT ,
       ED_HEADER LIKE  THEAD ,
       ED_LINES  LIKE  TLINE OCCURS 0 WITH HEADER LINE ,
       ED_TITLE  LIKE  TTXIT-TDTEXT .
CONSTANTS: C_LINE_LENGTH TYPE I VALUE 256.
define table type for data exchange
TYPES: BEGIN OF MYTABLE_LINE,
         LINE(C_LINE_LENGTH) TYPE C,
       END OF MYTABLE_LINE.
table to exchange text
DATA : G_MYTABLE TYPE TABLE OF MYTABLE_LINE.
DATA : G_WA LIKE  LINE OF  G_MYTABLE.
DATA:ZSR(5) VALUE 'TX'.
*&      Module  STATUS_0100  OUTPUT
      text
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'EDIT_100'.
SET TITLEBAR 'xxx'.
Initialize container of editor screen
  IF G_CUSTOM_CONTAINER1 IS INITIAL.
    CREATE OBJECT G_CUSTOM_CONTAINER1
           EXPORTING CONTAINER_NAME = G_CONTAINER1.
    CREATE OBJECT TEXT1
      EXPORTING
        PARENT = G_CUSTOM_CONTAINER1
        WORDWRAP_MODE = CL_GUI_TEXTEDIT=>WORDWRAP_AT_FIXED_POSITION
        WORDWRAP_POSITION = LINE_LENGTH
        WORDWRAP_TO_LINEBREAK_MODE = CL_GUI_TEXTEDIT=>TRUE.
  ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Form  read_text_in_editor
      text
FORM READ_TEXT_IN_EDITOR .
  ED_NAME = ZSR.                                            "'ZTEST2'.
ED_OBJECT = 'ZMAT' .
  ED_OBJECT = 'ZRAJ1'. "ZALOK' .
*--- For Reading Inspection Remarks Related text
  CLEAR: ED_LINES[],ED_LINES,G_MYTABLE[],G_MYTABLE.
  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      CLIENT                  = SY-MANDT
      ID                      = '01'
      LANGUAGE                = SY-LANGU
      NAME                    = ED_NAME
      OBJECT                  = ED_OBJECT
     IMPORTING
       HEADER                  = ED_HEADER
    TABLES
      LINES                   = ED_LINES
    EXCEPTIONS
      ID                      = 1
      LANGUAGE                = 2
      NAME                    = 3
      NOT_FOUND               = 4
      OBJECT                  = 5
      REFERENCE_CHECK         = 6
      WRONG_ACCESS_TO_ARCHIVE = 7
      OTHERS                  = 8.
  IF ED_LINES[] IS NOT INITIAL.
    LOOP AT ED_LINES .
      G_WA-LINE = ED_LINES-TDLINE .
      APPEND G_WA TO G_MYTABLE .
      CLEAR  G_WA.
    ENDLOOP .
  ENDIF.
    PERFORM MOVE_TO_EDITOR.
ENDFORM.                    " READ_TEXT_IN_EDITOR
*&      Form  MOVE_TO_EDITOR
      text
FORM MOVE_TO_EDITOR.
  CALL METHOD CL_GUI_CFW=>FLUSH
    EXCEPTIONS
      OTHERS = 1.
  CALL METHOD TEXT1->SET_TEXT_AS_R3TABLE
    EXPORTING
      TABLE  = G_MYTABLE
    EXCEPTIONS
      OTHERS = 1.
ENDFORM.                    "MOVE_TO_EDITOR
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
  CASE OK_CODE.
    WHEN 'CLEA'.
      CLEAR: ED_LINES[],ED_LINES,G_MYTABLE[],G_MYTABLE.
      PERFORM MOVE_TO_EDITOR.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
    WHEN 'DISP'.
      IF ZSR IS INITIAL.
        MESSAGE 'Enter Text No.' TYPE 'S'.
      ELSE.
        PERFORM READ_TEXT_IN_EDITOR .
      ENDIF.
    WHEN 'SAVE'.
      PERFORM SAVE_DATA.
  ENDCASE.
  CLEAR: OK_CODE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Form  SAVE_DATA
      text
FORM SAVE_DATA .
  CALL METHOD TEXT1->GET_TEXT_AS_R3TABLE
    IMPORTING
      TABLE  = G_MYTABLE
    EXCEPTIONS
      OTHERS = 1.
  CALL METHOD CL_GUI_CFW=>FLUSH
    EXCEPTIONS
      OTHERS = 1.
  CLEAR : ED_LINES, ED_LINES[] .
  LOOP AT G_MYTABLE INTO G_WA .
    MOVE G_WA-LINE TO ED_LINES-TDLINE .
    APPEND ED_LINES .
    CLEAR  ED_LINES .
  ENDLOOP.
ED_HEADER-TDOBJECT = 'ZMAT' .
  ED_HEADER-TDOBJECT = 'ZRAJ1'. "ZALOK' .
  ED_HEADER-TDNAME =  ZSR. "'ZTEST2'.              "ED_NAME .
ED_HEADER-TDID = 'ZMAT'.
  ED_HEADER-TDID = '01'.
  ED_HEADER-TDSPRAS = SY-LANGU.
  ED_HEADER-TDLINESIZE = '072'.
  CALL FUNCTION 'SAVE_TEXT'
    EXPORTING
      CLIENT          = SY-MANDT
      HEADER          = ED_HEADER
      SAVEMODE_DIRECT = 'X'
    TABLES
      LINES           = ED_LINES
    EXCEPTIONS
      ID              = 1
      LANGUAGE        = 2
      NAME            = 3
      OBJECT          = 4
      OTHERS          = 5.
  IF SY-SUBRC <> 0.
    CASE SY-SUBRC.
      WHEN '5'.
        MESSAGE E002(SY) WITH 'IPL' .
      WHEN '1'.
        MESSAGE E002(SY) WITH 'IPL1'.
    ENDCASE.
  ENDIF.
ENDFORM.                    " SAVE_DATA