Need to create Long text description field with Text Editor icon in QM01/QM02/QM03

[former_member223219]

Hi All,

I need to create few custom field in TAB01->QM01 in those one field is Long Text description filed with Text Editor icon. Anyone please guide me how to create that filed and I have paste the screen shot how I am expecting.

qm01-texteditor.png

* Set up the text header
header-tdobject = 'QMEL'.
header-tdname = '00600000050'.
header-tdid = 'LTQM'.
header-tdspras = sy-langu.
header-tdlinesize = 70.

call function 'EDIT_TEXT'
exporting
* display = mode
* EDITOR_TITLE = ' '
header = header
* PAGE = ' '
* WINDOW = ' '
save = 'X'
* LINE_EDITOR = ' '
* CONTROL = ' '
* PROGRAM = ' '
* LOCAL_CAT = ' '
* IMPORTING
* FUNCTION =
* NEWHEADER =
* RESULT =
tables
lines = txt_lines
* EXCEPTIONS
* ID = 1
* LANGUAGE = 2
* LINESIZE = 3
* NAME = 4
* OBJECT = 5
* TEXTFORMAT = 6
* COMMUNICATION = 7
* OTHERS = 8
.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.

call function 'SAVE_TEXT'
exporting
client = sy-mandt
header = header
* INSERT = ' '
SAVEMODE_DIRECT = 'X'
* OWNER_SPECIFIED = ' '
* LOCAL_CAT = ' '
* IMPORTING
* FUNCTION =
* NEWHEADER =
tables
lines = txt_lines
* 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.
endif.

Thanks,

[Nawanandana]

Hi,

You can use FM BAPI_QUALNOT_ADD_DATA and pass your long text to table NOTFULLTXT. with this FM you need to use BAPI_QUALNOT_SAVE and API_TRANSACTION_COMMIT to have successful update.

Regards,

Nawa