Saturday, June 22, 2013
 Usage: You can enter and display multi-line text.









Procedure with steps

  • Create Web Dynpro Component with Window and View(Automatically View is embedded into Window). 
  • Go to view ->Context tab 
    • Change mode .
    • Ctreate two attributes STR_TAB_01 and STR_TAB_01 of type STRING_TABLE.

  • Go to view ->Layout tab

    • Change root UI element ROOTUIELEMENTCONTAINER property LAYOUT = MatrixLayout.
    • Insert TextEdit element(txtedit_4_free_txt_01). Change the element properties COLS = 72 and ROWS = 6.
    • Bind context attribute str_tab_01 with UI element txtedit_4_free_txt_01.

    • Insert Button UI element. Change the element property LAYOUT = MatrixHeadData .

    • Insert TextEdit element(txtedit_4_free_txt_02). Change the element properties LAYOUT = MatrixHeadData, COLS = 72 and ROWS = 6.
    • Bind context attribute str_tab_02 with UI element txtedit_4_free_txt_02.

  • Create onAction event SUBMIT for Button UI element. 
  • Write the below code for Event Handler method ONACTIONSUBMIT. 
    METHOD ONACTIONSUBMIT .
      DATA LO_EL_CONTEXT TYPE REF TO IF_WD_CONTEXT_ELEMENT.
      DATA LS_CONTEXT TYPE WD_THIS->ELEMENT_CONTEXT.
      DATA LV_STR_TAB TYPE WD_THIS->ELEMENT_CONTEXT-STR_TAB.
    
      " get element via lead selection
      LO_EL_CONTEXT = WD_CONTEXT->GET_ELEMENT( ).
    
      "get single attribute
      LO_EL_CONTEXT->GET_ATTRIBUTE(
        EXPORTING
          NAME =  `STR_TAB`
        IMPORTING
          VALUE = LV_STR_TAB ).
    
      DATA LT_TLINE   TYPE ZTLINE.
      LT_TLINE = WD_THIS->CONVERT_LGTEXTS( STR_TAB = LV_STR_TAB ).
    
      DATA LV_STR_TAB02 TYPE WD_THIS->ELEMENT_CONTEXT-STR_TAB02.
      " get element via lead selection
      LO_EL_CONTEXT = WD_CONTEXT->GET_ELEMENT( ).
    
      LV_STR_TAB02  = WD_THIS->GET_LGTEXTS( TEXT_TABLE = LT_TLINE ).
      " set single attribute
      LO_EL_CONTEXT->SET_ATTRIBUTE(
        NAME =  `STR_TAB02`
        VALUE = LV_STR_TAB02 ).
    
    ENDMETHOD.
  • Method CONVERT_LGTEXTS code.
  • METHOD CONVERT_LGTEXTS .
      DATA:LT_STR_TAB  TYPE STRING_TABLE,
           LS_STR      TYPE STRING.
      TYPES:
            LTY_TDLINE TYPE TLINE-TDLINE,
            LTY_TLINE  TYPE TLINE.
      DATA:
            LT_TDLINE  TYPE STANDARD TABLE OF LTY_TDLINE.
      DATA:
            LS_TDLINE  TYPE LTY_TDLINE,
            LS_TLINE   TYPE LTY_TLINE.
      DATA:
            LV_TXTSTR  TYPE STRING.
    
    
      CHECK STR_TAB IS NOT INITIAL.
      LT_STR_TAB = STR_TAB.
      LOOP AT LT_STR_TAB INTO LS_STR.
        CLEAR LT_TDLINE[].
        LV_TXTSTR = LS_STR.
        "Convert the string to a table
        CALL FUNCTION 'CONVERT_STRING_TO_TABLE'
          EXPORTING
            I_STRING         = LV_TXTSTR
            I_TABLINE_LENGTH = 72
          TABLES
            ET_TABLE         = LT_TDLINE.
    
        LOOP AT LT_TDLINE INTO LS_TDLINE.
          MOVE LS_TDLINE TO LS_TLINE-TDLINE.
          APPEND LS_TLINE TO TEXT_TABLE.
        ENDLOOP.
      ENDLOOP.
    ENDMETHOD.
  • Method GET_LGTEXTS code.
  • METHOD GET_LGTEXTS .
      TYPES:
            LTY_TEXT  TYPE TLINE-TDLINE,
            LTY_TLINE TYPE TLINE,
            LTY_TSTR  TYPE STRING.
      DATA:
            LT_TEXT   TYPE STANDARD TABLE OF LTY_TEXT,
            LT_TSTR   TYPE STANDARD TABLE OF LTY_TSTR.
      DATA:
            LS_TEXT   TYPE  LTY_TEXT,
            LS_TLINE  TYPE LTY_TLINE,
            LS_TSTR   TYPE LTY_TSTR.
    
      LOOP AT TEXT_TABLE INTO LS_TLINE.
        MOVE LS_TLINE-TDLINE TO LS_TSTR.
        APPEND LS_TSTR TO LT_TSTR.
        CLEAR  LS_TSTR.
      ENDLOOP.
      TEXT_STRING = LT_TSTR.
    ENDMETHOD.
  • Create Web Dynpro Application.
  • Run application


1 comment:

Your useful comments, suggestions are appreciated.Your comments are moderated.

Followers

Contact Form

Name

Email *

Message *

Web Dynpro ABAP Book

An SAP Consultant

Follow US


Want to Contribute ?

If you are interested in writing about the new stuff you learn everyday while working, please write to the.sap.consultants@gmail.com.

Click on Contribution for more details.