Comment Box

Former Member — Thu, 10 Jul 2008 09:19:30 GMT

Hi Experts,

I am designing a screen layout. My requirement is, i need to insert a Comment Box in the screen layout. How can i insert a comment Box in the screen layout? It must be allow nearly 10 lines of information & width is 60 char.

Regards

Rajendra

Re: Comment Box

Former Member — Thu, 10 Jul 2008 09:27:07 GMT

Hi,

try to use custom container..

Re: Comment Box

Former Member — Thu, 10 Jul 2008 09:27:19 GMT

Hi,

is the sceen an input or output screen?

regards, dieter

Re: Comment Box

Former Member — Thu, 10 Jul 2008 09:28:40 GMT

Hi,

It is an Input & output also.

Cheers

Re: Comment Box

Former Member — Thu, 10 Jul 2008 09:29:42 GMT

You need to Design the Custom cotrol in the screen

and then you have to use the class

CL_GUI_TEXTEDIT

For making it to work as required.

How to use the class please check this sample

REPORT Z_TEST.
*module create_container_pbo_2000 output.
DATA:
  obj_cust_cont_credential  TYPE REF TO cl_gui_custom_container,
*  obj_cust_cont_character   TYPE REF TO cl_gui_custom_container,
*  obj_cust_cont_preempmnt   TYPE REF TO cl_gui_custom_container,
  obj_text_cred        TYPE REF TO cl_gui_textedit,
*  obj_text_char        TYPE REF TO cl_gui_textedit,
*  obj_text_pemp        TYPE REF TO cl_gui_textedit,
* Internal table to hold text for container reason1
  BEGIN OF i_table_text OCCURS 0,
    line(132) TYPE c,                  " Line text
  END OF i_table_text,

* Internal table to hold text for container reason2
  BEGIN OF i_table_text1 OCCURS 0,
    line(132) TYPE c,                  " Line text
  END OF i_table_text1,

* Internal table to hold text for container looking for another job
  beGIN OF i_table_text2 OCCURS 0,
    line(132) TYPE c,                  " Line text
  END OF i_table_text2.

* Subroutine to create text container for remarks on credentials
  PERFORM get_container_credential.
* Subroutine to create text container for remarks on character
*  PERFORM get_container_character.
* Subroutine to create text container for remarks on preemployeement
*  PERFORM get_container_preempmnt.
call screen 100.
*endmodule.                 " create_container_pbo_2000  OUTPUT
*&---------------------------------------------------------------------*
*&      Form  get_container_credential
*&---------------------------------------------------------------------*
*  Subroutine to create text container for remarks on credentials
*----------------------------------------------------------------------*
* No interface parameters to this subroutine
*----------------------------------------------------------------------*
form get_container_credential .
  IF obj_cust_cont_credential IS INITIAL.
* To create the object custom container and link to the container on
* screen
    CREATE OBJECT obj_cust_cont_credential
        EXPORTING
            container_name = 'CCREDENTIALS'
        EXCEPTIONS
            cntl_error = 1
            cntl_system_error = 2
            create_error = 3
            lifetime_error = 4
            lifetime_dynpro_dynpro_link = 5.

*  To create the a TextEdit Control and link to the custom container
    CREATE OBJECT obj_text_CRED
      EXPORTING
         parent = obj_cust_cont_credential
         wordwrap_mode = cl_gui_textedit=>WORDWRAP_AT_WINDOWBORDER
         wordwrap_to_linebreak_mode = cl_gui_textedit=>true
      EXCEPTIONS
          others = 1.
    IF sy-subrc EQ 0.
* To remove the toolbar
      CALL METHOD obj_text_CRED->set_toolbar_mode
        EXPORTING
          toolbar_mode           = 0
        EXCEPTIONS
          error_cntl_call_method = 1
          invalid_parameter      = 2
          OTHERS                 = 3.

* To remove the status bar
      CALL METHOD obj_text_CRED->set_statusbar_mode
        EXPORTING
          statusbar_mode         = 0
        EXCEPTIONS
          error_cntl_call_method = 1
          invalid_parameter      = 2
          OTHERS                 = 3
              .
    ENDIF.                             " IF sy-subrc EQ 0
  ENDIF.                               " IF obj_cust_cont_credential

endform.                               " get_container_credential
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module STATUS_0100 output.
  SET PF-STATUS 'ZTEST'.
  SET TITLEBAR 'xxx'.

endmodule.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module USER_COMMAND_0100 input.
if sy-ucomm EQ 'BACK'.
  leave to screen 0.
endif.
endmodule.                 " USER_COMMAND_0100  INPUT

topic Comment Box in Application Development and Automation Discussions

Comment Box

Re: Comment Box

Re: Comment Box

Re: Comment Box

Re: Comment Box