批量导入GB01 函数 JV_GB01_DIRECT_INPUT

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.