REPORT ytest.
DATA:lt_glu1 TYPE TABLE OF glu1,
ls_glu1 TYPE glu1.
DATA:lv_docnr TYPE glu1-docnr .
DATA:lv_text TYPE string .
*封装行项目信息。
ls_glu1-rldnr = 'GW'.
*ls_glu1-rrcty = '0'.
*ls_glu1-rvers = '001'.
ls_glu1-ryear = '2020'.
ls_glu1-poper = sy-datum+4(2) . "实际过账日期月份
ls_glu1-drcrk = 'S'.
ls_glu1-rbukrs = 'GW01'.
ls_glu1-racct = '0000003961'. "科目
ls_glu1-bukrs = 'GW01' .
*ls_glu1-docct = 'L' .
ls_glu1-ksl = 10 .
ls_glu1-docty = 'CT' .
ls_glu1-lcurr = 'SEK' . "local
ls_glu1-gcurr = 'EUR' .
APPEND ls_glu1 TO lt_glu1 .
CLEAR ls_glu1 .
ls_glu1-rldnr = 'GW'.
*ls_glu1-rrcty = '0'.
*ls_glu1-rvers = '001'.
ls_glu1-ryear = '2020'.
ls_glu1-poper = sy-datum+4(2) . "实际过账日期月份
ls_glu1-drcrk = 'H'.
ls_glu1-rbukrs = 'GW01'.
ls_glu1-racct = '0000009999'. "科目
ls_glu1-bukrs = 'GW01' .
*ls_glu1-docct = 'L' .
ls_glu1-ksl = 0 - 10 .
ls_glu1-docty = 'CT' .
ls_glu1-lcurr = 'SEK' . "local
ls_glu1-gcurr = 'EUR' .
APPEND ls_glu1 TO lt_glu1 .
CALL FUNCTION 'JV_GB01_DIRECT_INPUT'
EXPORTING
* E_DOCNR = ' '
e_bukrs = 'GW01'
e_year = '2020'
e_budat = sy-datum
e_wudat = sy-datum
* E_ZEROCHK = ' '
e_activ = 'RGL0'
IMPORTING
i_docnr = lv_docnr
TABLES
t_glu1 = lt_glu1
EXCEPTIONS
document_number_not_found = 1
local_currency_not_correct = 2
error_message = 3
OTHERS = 4.
IF sy-subrc <> 0.
CALL FUNCTION 'MESSAGE_TEXT_BUILD'
EXPORTING
msgid = sy-msgid
msgnr = sy-msgno
msgv1 = sy-msgv1
msgv2 = sy-msgv2
msgv3 = sy-msgv3
msgv4 = sy-msgv4
IMPORTING
message_text_output = lv_text.
ELSE .
COMMIT WORK .
WRITE lv_docnr .
ENDIF.