Edit_text

crash_kz

При использовании Edit_text
появляется экран в котором предлагается ввести/отредактировать текстовое поле.
Как сделать чтобы можно было текстовому полю присваивать значение текстовой переменной не выводя экран.

Eugene

а в чем сложность?

DEMO_DYNPRO_STRINGS

crash_kz

а теперь из этого примера, значение допустим
string2 нужно записать в таблицу RTEXT в текстовое поле TTEXT
когда используешь edit_text то появляется экран в который и предлагается вввести значение string2,
а нужно напрямую без помощи этого экрана сделать RTEXT-TTEXT = string2

Eugene

ты о текстовых полях речь ведешь что ли?
edit_text - это функциональный модуль что ли?

ну save_text тогда
потом commit_text
и commit work

crash_kz

Да я о них, о текстовых полях,
есть программка SDTEXTE в которой приведен пример
работы edit_text но когда делаешь CALL FUNCTION 'EDIT_TEXT'
то появляется экран в котором предлагается ввести значение которое
будет записано в текстовое поля
так весь прикол в том что мне нужно не показывать этот экран
а подтянуть значение из string2 и вставить его в текстовое поле

Eugene

ну дак я и говорю
я вот так писал

Code:

FORM save_text_500 USING pbelnr LIKE bkpf-belnr
                         pbukrs LIKE bkpf-bukrs
                         pgjahr LIKE bkpf-gjahr.
  CLEAR t_header.
  CLEAR t_line[].
  t_header-tdobject = 'BELEG'.
  t_header-tdid = '0001'.
  t_header-tdspras = sy-langu.
  CONCATENATE pbukrs pbelnr pgjahr INTO t_header-tdname.
  t_line-tdline = temp_line1.
  t_line-tdformat = '*'.
  APPEND t_line.
  t_line-tdline = temp_line2.
  t_line-tdformat = '*'.
  APPEND t_line.
  t_line-tdline = temp_line3.
  t_line-tdformat = '*'.
  APPEND t_line.

  CALL FUNCTION 'SAVE_TEXT'
       EXPORTING
            header          = t_header
            savemode_direct = 'X'
       TABLES
            lines           = t_line
       EXCEPTIONS
            id              = 1
            language        = 2
            name            = 3
            object          = 4
            OTHERS          = 5.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    CALL FUNCTION 'COMMIT_TEXT'.
    COMMIT WORK.
  ENDIF.
ENDFORM.

ну или вот так

Code:

                        CALL FUNCTION 'FI_TEXTS_DOCUMENT'
                             EXPORTING
                                  i_belnr          = wa_batch_tchp-belnr
                                  i_bukrs          = wa_batch_tchp-bukrs
                                  i_gjahr          = wa_batch_tchp-year
                                  i_object         = 'BELEG'
                             EXCEPTIONS
                                  no_texts_found   = 1
                                  incorrect_object = 2
                                  OTHERS           = 3.
                        IF sy-subrc <> 0.
                      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
                        ELSE.
                          CALL FUNCTION 'COMMIT_TEXT'.
                          COMMIT WORK.
                          DELETE it_batch_tchp INDEX 1.
                          LOOP AT it_batch_tchp.
                            CALL FUNCTION 'FI_TEXTS_DOCUMENT_COPY'
                                 EXPORTING
                                      i_belnrsrc  = wa_batch_tchp-belnr
                                      i_bukrssrc  = wa_batch_tchp-bukrs
                                      i_gjahrsrc  = wa_batch_tchp-year
                                      i_belnrdest = it_batch_tchp-belnr
                                      i_bukrsdest = it_batch_tchp-bukrs
                                      i_gjahrdest = it_batch_tchp-year
                                 IMPORTING
                                      e_update    = text_xupd
                                 EXCEPTIONS
                                      OTHERS      = 0.
                            IF text_xupd = 'X'.
                              MOVE space TO string1.
                              CALL FUNCTION 'FI_TEXTS_DOCUMENT_UPDATE'
                                   EXPORTING
                                        i_bukrs  = it_batch_tchp-bukrs
                                        i_gjahr  = it_batch_tchp-year
                                        i_belnr  = it_batch_tchp-belnr
                                        i_intern = string1(1).
                              COMMIT WORK.
                            ENDIF.
                          ENDLOOP.
                        ENDIF.
 

crash_kz

Спасибо, получилось так как вы и сказали.
в моем тексте отсутсвовало
APPEND t_line.
ещё раз спасибо.

SAPR3

Извините, что поднимаю старую тему. Я не АБАП специалист, но меня интересет такой вопрос. Как можно просмотреть содержимое таблицы RTEXT, о которой говорилось выше? Какую транзакцию для этого можно использовать?
Я рпобовал посмотреть с помощью SE17 - пишет, что RTEXT не таблица, а структура.
У нас версия 4.7.

sy-uname

SAPR3 написал(а):

Извините, что поднимаю старую тему. Я не АБАП специалист, но меня интересет такой вопрос. Как можно просмотреть содержимое таблицы RTEXT, о которой говорилось выше? Какую транзакцию для этого можно использовать?
Я рпобовал посмотреть с помощью SE17 - пишет, что RTEXT не таблица, а структура.
У нас версия 4.7.

Наверно речь шла о внутренней таблицк, а не о таблице БД. Т.е. смотреть её можно разве что в отладчике в момент выполнения программы.

Правила форума

Edit_text

Кто сейчас на конференции