Is it possible to save multiple text ?

[former_member635273]

I want to save text from some custom control.

when I double cllick column SO Comm Head, will appears modal dialog box for edit and save text (text header and text item).

the problem is i can't save both of text. and this my code

CASE SY-UCOMM.
    WHEN 'SAVE'.
*       REFRESH gi_dis_longtext.
      CALL METHOD gv_text_editor->get_text_as_r3table
*  EXPORTING
*    ONLY_WHEN_MODIFIED     = TRUE
        IMPORTING
          table                  = gi_dis_longtext
*         IS_MODIFIED            = IS_MODIFIED
        EXCEPTIONS
          error_dp               = 1
          error_cntl_call_method = 2
          error_dp_create        = 3
          potential_data_loss    = 4
          OTHERS                 = 5.

      IF sy-subrc = 0.
        REFRESH it_lines .
        LOOP AT gi_dis_longtext INTO gw_dis_longtext.
          it_lines-tdformat = '/'.
          it_lines-tdline = gw_dis_longtext-tdline.
          APPEND it_lines.
        ENDLOOP.
      ENDIF.

      IF it_lines[] IS INITIAL.
        it_lines-tdformat = '*'.
        it_lines-tdline = ''.
        APPEND it_lines.
      ENDIF.

      CALL METHOD cl_gui_cfw=>flush
        EXCEPTIONS
          cntl_system_error = 1
          cntl_error        = 2
          OTHERS            = 3.


        gv_header-tdname = wa_selected-vbeln.
        gv_header-tdid = 'ZCOM'.
        gv_header-tdobject = 'VBBK'.
        gv_header-tdspras = sy-langu.

        CLEAR p_name_i.
        CONCATENATE wa_selected-vbeln wa_selected-posnr INTO p_name_i.
        gv_header_i-tdname = p_name_i.
        gv_header_i-tdid = 'ZCOM'.
        gv_header_i-tdobject = 'VBBP'.
        gv_header_i-tdspras = sy-langu.


      CALL FUNCTION 'SAVE_TEXT'
        EXPORTING
          client          = sy-mandt
          header          = gv_header
*         INSERT          = ' '
          savemode_direct = 'X'
*         OWNER_SPECIFIED = ' '
*         LOCAL_CAT       = ' '
*       IMPORTING
*         FUNCTION        =
*         NEWHEADER       =
        TABLES
          lines           = it_lines
        EXCEPTIONS
          id              = 1
          language        = 2
          name            = 3
          object          = 4
          OTHERS          = 5.

      CALL FUNCTION 'SAVE_TEXT'
        EXPORTING
          client          = sy-mandt
          header          = gv_header_i
*         INSERT          = ' '
          savemode_direct = 'X'
*         OWNER_SPECIFIED = ' '
*         LOCAL_CAT       = ' '
*       IMPORTING
*         FUNCTION        =
*         NEWHEADER       =
        TABLES
          lines           = it_lines
        EXCEPTIONS
          id              = 1
          language        = 2
          name            = 3
          object          = 4
          OTHERS          = 5.
      
        
      IF sy-subrc EQ 0.
        PERFORM f_clear_data.
        MESSAGE s398(00) WITH 'Save Succeded' DISPLAY LIKE 'S'.
        SET SCREEN 0.
      ELSE.
        MESSAGE s398(00) WITH 'Error when saving data to database' DISPLAY LIKE 'E'.
      ENDIF.

[Sandra_Rossi]

You mean, if you comment out one SAVE_TEXT, the remaining SAVE_TEXT works?

[Sandra_Rossi]

Did you check in database if two lines have been added to the corresponding table STXH? (select created on today and TDID = 'ZCOM')

By the way, where is your COMMIT WORK? (any database update must be terminated by COMMIT WORK or ROLLBACK WORK)

[former_member635273]

yes, save_text work, but only one(only text item), i want to save both( text header and text item at the same time when clicked save). So i try to make save text for each field, but it same.

This my PBO.

MODULE pbo OUTPUT.
  DATA : con_name(20) TYPE c.
  CLEAR con_name.
  con_name = 'SO_TXT_HEADER'.
  PERFORM f_create_obj USING con_name 'true'.
  CLEAR con_name.
  con_name = 'SO_TXT_ITEM'.
  PERFORM f_create_obj USING con_name 'true'.
ENDMODULE.

FORM f_create_obj  USING p_con_name p_edit.
  DATA : lv_mode TYPE string.
  CREATE OBJECT gv_editor_container
    EXPORTING
      container_name              = p_con_name
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5.

  CREATE OBJECT gv_text_editor
    EXPORTING
      parent                     = gv_editor_container
      wordwrap_mode              = cl_gui_textedit=>wordwrap_at_fixed_position
      wordwrap_position          = gv_line_length
      wordwrap_to_linebreak_mode = cl_gui_textedit=>true.

  CALL METHOD gv_text_editor->set_toolbar_mode
    EXPORTING
      toolbar_mode = cl_gui_textedit=>false.

  CALL METHOD gv_text_editor->set_statusbar_mode
    EXPORTING
      statusbar_mode = cl_gui_textedit=>false.

  IF p_edit EQ 'false'.
    CALL METHOD gv_text_editor->set_readonly_mode
      EXPORTING
        readonly_mode = 1.
  ENDIF.

  CLEAR p_name_h.

  CASE p_con_name.
    WHEN 'SO_TXT_HEADER'.
      p_name_h = wa_selected-vbeln.
      PERFORM f_read_text USING p_name_h 'ZCOM' 'VBBK'.
    WHEN 'SO_TXT_ITEM'.
      CONCATENATE wa_selected-vbeln wa_selected-posnr INTO p_name_i.
      PERFORM f_read_text USING p_name_i 'ZCOM' 'VBBP'.
  ENDCASE.

  REFRESH gi_dis_longtext.
  CLEAR gw_dis_longtext.

  LOOP AT it_lines.
    gw_dis_longtext-tdline =  it_lines-tdline .
    APPEND gw_dis_longtext TO gi_dis_longtext.
    CLEAR gw_dis_longtext.
  ENDLOOP.

  CALL METHOD gv_text_editor->set_text_as_r3table
    EXPORTING
      table  = gi_dis_longtext
    EXCEPTIONS
      OTHERS = 1.
ENDFORM.


FORM f_read_text  USING  p_name p_id p_obj.

  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      client                  = sy-mandt
      id                      = p_id
      language                = sy-langu
      name                    = p_name
      object                  = p_obj
*     ARCHIVE_HANDLE          = 0
*     LOCAL_CAT               = ' '
*   IMPORTING
*     HEADER                  =
*     OLD_LINE_COUNTER        =
    TABLES
      lines                   = it_lines[]
    EXCEPTIONS
      id                      = 1
      language                = 2
      name                    = 3
      not_found               = 4
      object                  = 5
      reference_check         = 6
      wrong_access_to_archive = 7
      OTHERS                  = 8.

ENDFORM.

[former_member635273]

It's work sir. thnks a lot for helping and shraing.

i decided to make different variable for text header and text item.

*  header
    CREATE OBJECT gv_editor_container
    EXPORTING
      container_name              = 'SO_TXT_HEADER'
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5.
  CREATE OBJECT gv_text_editor
    EXPORTING
      parent                     = gv_editor_container
      wordwrap_mode              = cl_gui_textedit=>wordwrap_at_fixed_position
      wordwrap_position          = gv_line_length
      wordwrap_to_linebreak_mode = cl_gui_textedit=>true.
  CALL METHOD gv_text_editor->set_toolbar_mode
    EXPORTING
      toolbar_mode = cl_gui_textedit=>false.
  CALL METHOD gv_text_editor->set_statusbar_mode
    EXPORTING
      statusbar_mode = cl_gui_textedit=>false.
      p_name_h = wa_selected-vbeln.
      PERFORM f_read_text USING p_name_h 'ZCOM' 'VBBK'.
      REFRESH gi_dis_longtext.
      CLEAR gw_dis_longtext.
      LOOP AT it_lines.
        gw_dis_longtext-tdline =  it_lines-tdline .
        APPEND gw_dis_longtext TO gi_dis_longtext.
        CLEAR gw_dis_longtext.
      ENDLOOP.

      CALL METHOD gv_text_editor->set_text_as_r3table
        EXPORTING
          table  = gi_dis_longtext
        EXCEPTIONS
          OTHERS = 1.
*  end header

*  Item
    CREATE OBJECT gv_editor_container_i
    EXPORTING
      container_name              = 'SO_TXT_ITEM'
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5.


  CREATE OBJECT gv_text_editor_i
    EXPORTING
      parent                     = gv_editor_container_i
      wordwrap_mode              = cl_gui_textedit=>wordwrap_at_fixed_position
      wordwrap_position          = gv_line_length_i
      wordwrap_to_linebreak_mode = cl_gui_textedit=>true.

  CALL METHOD gv_text_editor_i->set_toolbar_mode
    EXPORTING
      toolbar_mode = cl_gui_textedit=>false.

  CALL METHOD gv_text_editor_i->set_statusbar_mode
    EXPORTING
      statusbar_mode = cl_gui_textedit=>false.

  CONCATENATE wa_selected-vbeln wa_selected-posnr INTO p_name_i.
      PERFORM f_read_text_i USING p_name_i 'ZCOM' 'VBBP'.

       REFRESH gi_dis_longtext_i.
      CLEAR gw_dis_longtext_i.
      LOOP AT it_lines_i.
        gw_dis_longtext_i-tdline =  it_lines_i-tdline .
        APPEND gw_dis_longtext_i TO gi_dis_longtext_i.
        CLEAR gw_dis_longtext_i.
      ENDLOOP.

      CALL METHOD gv_text_editor_i->set_text_as_r3table
        EXPORTING
          table  = gi_dis_longtext_i
        EXCEPTIONS
          OTHERS = 1.
*  End Item

may this code can help. for everyone who has same problem.

thnks all.

[venkateswaran_k]

Great,

Then mark the answer and close the thread

[venkateswaran_k · Accepted solution]

Dear Saddam

Your perform routines

PERFORM f_read_text USING p_name_i 'ZCOM' 'VBBP', PERFORM f_read_text USING p_name_i 'ZCOM' 'VBBK'' are storing the results in same it_lines[].

(either refreshing or appending it).

So, please use different it_lines for each header and items and then save appropriatly.

Regards,

Venkat

[RAF]

Hi,

sure ase Venkat suggest it also i would give it a try.

[former_member635273]

thnks a lot sir.

[RAF]

Hi,

you have to different calls.

One with gv_header one with gv_header_i.

But it_lines is same variable/value passed two times?

[former_member635273]

Should i create differnt it_lines ?

ex. it_lines for gv_header and it_lines_i gv_header_i