Additing text in vbak header level
DATA: sales_doc_number TYPE tdobname,
c_textid TYPE tdid,
t_line TYPE STANDARD TABLE OF tline WITH HEADER LINE.
t_line-tdformat = '*'.
t_line-tdline = gs_upload-ref_inv_no.
APPEND t_line.
sales_doc_number = gv_salesdocument.
c_textid = '1000'.
CALL FUNCTION 'CREATE_TEXT'
EXPORTING
fid = c_textid
flanguage = sy-langu
fname = sales_doc_number
fobject = 'VBBK'
save_direct = 'X'
fformat = '*'
TABLES
flines = t_line
EXCEPTIONS
no_init = 1
no_save = 2
OTHERS = 3.
CLEAR: c_textid,t_line.
t_line-tdformat = '*'.
t_line-tdline = gs_upload-ref_ino_dat.
APPEND t_line.
sales_doc_number = gv_salesdocument.
c_textid = '1001'.
CALL FUNCTION 'CREATE_TEXT'
EXPORTING
fid = c_textid
flanguage = sy-langu
fname = sales_doc_number
fobject = 'VBBK'
save_direct = 'X'
fformat = '*'
TABLES
flines = t_line
EXCEPTIONS
no_init = 1
no_save = 2
OTHERS = 3.
Comments
Post a Comment