Skip to Content
author's profile photo Former Member
Former Member

Text editor

Dear All,

Could you tell me how I can realize the text editor on the screen? I must afford an opportunity for user input a long text and then save into field ANY_TXT(1024).

Thanks a lot.

Best regards,

Igor

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

4 Answers

  • author's profile photo Former Member
    Former Member
    Posted on Dec 02, 2005 at 07:21 AM

    Hello Igor,

    You can refer search this forum for some examples. Rich Heilman has given the sample program. Here's the long-string-as-parameter.

    Regards,

    Anand Mandalika.

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Dec 02, 2005 at 07:21 AM

    Just a suggestion.

    Why not to have nearly 6 to 7 parameters under 1 name & concatenate and place the value in the field any_txt.

    P.S : A parameter can support a maximum of 132 characters

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Dec 02, 2005 at 07:22 AM

    Hi,

    There will be some button which named "Long text" which you can click on it and type in the long text that you require. Please find for those button inside the tcode.

    Thanks.

    Add a comment
    10|10000 characters needed characters exceeded

  • Posted on Dec 02, 2005 at 07:32 AM

    hi You Need to Use controls to acheive .

    create custom container in screen and handle in the as following way

    *&---------------------------------------------------------------------*
    *&      Module  STATUS_0100  OUTPUT
    *&---------------------------------------------------------------------*
    *  populate the custom control table
    *----------------------------------------------------------------------*
    MODULE status_0100 OUTPUT.
    
    data:l_zzproject_nbr1 like vbak-zzproject_nbr,
         tcode like sy-tcode.
      CLEAR: w_status,it_menu,it_menu[],i_status.
    
    progname = sy-repid.
    dynnum   = sy-dynnr.
    
    *tcode = 'VA02'.
    *call 'AUTH_CHECK_TCODE'
    *     id 'TCODE' field tcode.
    
    
    
      AUTHORITY-CHECK OBJECT 'V_VBAK_AAT'
                  ID 'ACTVT' FIELD '02'
                  ID 'AUART' DUMMY.
      IF SY-SUBRC <> 0.
          MESSAGE e002(zz) WITH
              'You do not have authorization to run this program.'.
      ENDIF.
    
      MOVE 'SAVE_PROJ' TO w_status-fcode.
      APPEND w_status TO i_status.
      CLEAR w_status.
    * Reset button has been adviced to remove
      MOVE 'RENAME' TO w_status-fcode.
      APPEND w_status TO i_status.
      CLEAR w_status.
    *-Delete button added
      MOVE 'DELETE' TO w_status-fcode.
      APPEND w_status TO i_status.
      CLEAR w_status.
    *-Reset
      MOVE 'RESET' TO w_status-fcode.
      APPEND w_status TO i_status.
      CLEAR w_status.
    
      SET TITLEBAR 'TITLE'.
    *-This logic is to set the application toolbar according to the
    *-contents of the various fields in the screen
      IF v_zzproject_nbr IS INITIAL.
        SET PF-STATUS 'ZVPM_MENU1' EXCLUDING i_status.
      ELSE.
         if not i_vbak[] is initial.
          select  vbeln
                  zzproject_nbr
            into  table it_menu
            from  vbak
             for  all entries in i_vbak
           where  vbeln = i_vbak-vbeln.
          endif.
    
       if not it_menu[] is initial.
           sort it_menu by vbeln zzproject_nbr.
           read table it_menu with key zzproject_nbr = v_zzproject_nbr
                   binary search transporting zzproject_nbr.
           if it_menu-zzproject_nbr = v_zzproject_nbr.
            SET PF-STATUS 'ZVPM_MENU1'.
           else.
            DELETE I_STATUS WHERE FCODE = 'SAVE_PROJ'.
            DELETE I_STATUS WHERE FCODE = 'RESET'.
            SET PF-STATUS 'ZVPM_MENU1' EXCLUDING i_status.
           endif.
        else.
          DELETE I_STATUS WHERE FCODE = 'SAVE_PROJ'.
          DELETE I_STATUS WHERE FCODE = 'RESET'.
          SET PF-STATUS 'ZVPM_MENU1' EXCLUDING i_status.
        endif.
        endif.
      CLEAR v_comm .
    * Check whether the project nbr is initial
      IF NOT v_zzproject_nbr IS INITIAL.
        v_prev_projectid_nbr = v_zzproject_nbr.
      ENDIF.
      IF v_zzproject_nbr IS INITIAL.
        LOOP AT SCREEN.
          IF screen-group1 = 'GP1'.
            screen-active = '0'.
            MODIFY SCREEN.
          ENDIF.
          if screen-name = 'V_EXPNR'.
            screen-input = '0'.
            MODIFY SCREEN.
          endif.
          IF screen-name = 'V_ZZPROJECT_DESC'.
            screen-input  = '0'.
            MODIFY SCREEN.
          ENDIF.
        ENDLOOP.
       ELSE.
        LOOP AT SCREEN.
           IF SCREEN-NAME = 'V_ZZPROJECT_NBR'.
            SCREEN-INPUT = '0'.
           MODIFY SCREEN.
           ENDIF.
          ENDLOOP.
      ENDIF.
    * The below perform is used to get the project notes text in the
    * custom control text edit
    
      IF editor IS INITIAL.
        repid = sy-repid.
        CREATE OBJECT textedit_custom_container
            EXPORTING
                container_name = 'TEXTEDITOR1'
            EXCEPTIONS
                cntl_error = 1
                cntl_system_error = 2
                create_error = 3
                lifetime_error = 4
                lifetime_dynpro_dynpro_link = 5.
        IF sy-subrc NE 0.
    *      add your handling
        ENDIF.
    
        CREATE OBJECT editor
          EXPORTING
             parent = textedit_custom_container
             wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
             wordwrap_to_linebreak_mode = cl_gui_textedit=>true
          EXCEPTIONS
              others = 1.
        IF sy-subrc NE 0.
    
        ENDIF.
    
      ENDIF.                               " Editor is initial
    * initially flush
      CALL METHOD cl_gui_cfw=>flush
             EXCEPTIONS
               OTHERS = 1.
      IF sy-subrc NE 0.
    
      ENDIF.
    
      IF v_zzproject_nbr IS INITIAL.
    
        CALL METHOD editor->set_readonly_mode
            EXPORTING
                 readonly_mode = 1
             EXCEPTIONS
               error_cntl_call_method = 1
               invalid_parameter = 2
               OTHERS = 3.
    
      else.
    
        CALL METHOD editor->set_readonly_mode
    EXPORTING
         readonly_mode = 0
     EXCEPTIONS
       error_cntl_call_method = 1
       invalid_parameter = 2
       OTHERS = 3.
    
      ENDIF.
    
    * finally flush
      CALL METHOD cl_gui_cfw=>flush
             EXCEPTIONS
               OTHERS = 1.
      IF sy-subrc NE 0.
    *    CALL FUNCTION 'POPUP_TO_INFORM'
    *         EXPORTING
    *              titel = repid
    *              txt2  = space
    *              txt1  = text-004.
      ENDIF.
    
    
    
      IF NOT i_vbak[] IS INITIAL.
        i_tcdata[] = i_vbak[].
      ENDIF.
    ENDMODULE.                 " STATUS_0100  OUTPUT

    Reagrds

    vijay

    Message was edited by: Vijay Babu Dudla

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.