取物料凭证:
EXPORTING
mblnr =
mjahr =
trtyp =
* ZEILB =
* ZEILE =
tables
seqtab =
* MBLPO_TAB =
.
取会计凭证:
CALL FUNCTION 'FI_DOCUMENT_READ'
* EXPORTING
* I_AWTYP =
* I_AWREF =
* I_AWORG = ' '
* I_AWSYS = ' '
* I_XNBKL = ' '
* I_BUKRS =
* I_BELNR =
* I_GJAHR =
* I_BSTAT = ' '
* I_XBLNR = ' '
* I_BUDAT =
* I_BLART = ' '
* IMPORTING
* E_AWTYP =
* E_AWREF =
* E_AWORG =
* E_AWSYS =
* TABLES
* T_ABUZ =
* T_ACCHD =
* T_ACCIT =
* T_ACCCR =
* T_BKPF =
* T_BSEG =
* EXCEPTIONS
* WRONG_INPUT = 1
* NOT_FOUND = 2
* OTHERS = 3
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/23495244/viewspace-695893/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/23495244/viewspace-695893/