on 2022 Apr 06 3:17 PM
DATA lv_log_line TYPE char1.
DATA lv_lock_text TYPE char1.
DATA ls_tline TYPE tline.
DATA lv_notif_type TYPE qmel-qmart.
SELECT SINGLE qmart INTO lv_notif_type FROM qmel WHERE qmnum = p_falha-nota.
SELECT SINGLE qmltxt01 qmltxt02 INTO (lv_log_line, lv_lock_text) FROM tq80 WHERE qmart = lv_notif_type.
IF lv_log_line IS NOT INITIAL.
CALL FUNCTION 'TEXT_CREATE_HISTORY_LINE'
IMPORTING
history_line = ls_tline-tdline.
ENDIF.
IF ls_tline IS NOT INITIAL.
INSERT ls_tline INTO lt_text_lines INDEX 1.
ENDIF.
DATA: lv_fformat TYPE tline-tdformat.
IF p_lv_lock_text IS NOT INITIAL.
lv_fformat = '>X'.
ELSE.
lv_fformat = '*'.
ENDIF.
CALL FUNCTION 'CREATE_TEXT'
EXPORTING
fid = id
flanguage = language
fname = name
fobject = object
save_direct = 'X'
fformat = lv_fformat
TABLES
flines = t_text_lines
EXCEPTIONS
no_init = 1
no_save = 2
OTHERS = 3.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
111 | |
9 | |
8 | |
6 | |
5 | |
5 | |
5 | |
5 | |
4 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.