Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
Check this sample code. This code is for fetching the sales order header text then adding your own text and then for saving it.
REPORT z_test1.
TABLES:
thead.
PARAMETERS:
p_vbeln TYPE vbak-vbeln.
PARAMETERS:
p_textid TYPE thead-tdid.
DATA:
BEGIN OF t_thead OCCURS 0.
INCLUDE STRUCTURE thead.
DATA:
END OF t_thead.
DATA:
w_line TYPE i,
w_idx TYPE i,
w_flag TYPE i.
DATA:
BEGIN OF t_tline OCCURS 0.
INCLUDE STRUCTURE tline.
DATA:
END OF t_tline.
DATA:
w_test TYPE thead-tdname,
w_temp TYPE string VALUE 'TEST'.
START-OF-SELECTION.
w_test = p_vbeln.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = p_textid
language = sy-langu
name = w_test
object = 'VBBK'
TABLES
lines = t_tline
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc NE 0.
MESSAGE 'HEADER TEXT NOT FOUND' TYPE 'I'.
ENDIF.
END-OF-SELECTION.
LOOP AT t_tline.
IF t_tline-tdline = w_temp.
w_flag = 1.
ENDIF.
ENDLOOP.
IF w_flag NE 1.
t_tline-tdline = w_temp.
APPEND t_tline.
ENDIF.
REFRESH t_thead.
t_thead-tdobject = 'VBBK'.
t_thead-tdname = w_test.
t_thead-tdid = p_textid.
t_thead-tdspras = sy-langu.
APPEND t_thead.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
client = sy-mandt
header = t_thead
savemode_direct = 'X'
TABLES
lines = t_tline
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4.
IF sy-subrc NE 0.
WRITE: / 'ERROR'.
ELSE.
COMMIT WORK.
WRITE: / 'TEXT SAVED'.
ENDIF.
LOOP AT t_tline.
WRITE: / t_tline-tdline.
ENDLOOP.
Thnk u for ur answer my requirement is retrive the all production orders for 1 sales order and change the long text in production order with the sales order items text
Bluesky
