SAP创建会计凭证

DATA: ls_documentheader TYPE bapiache09,
lv_key TYPE bapiache09-obj_key,

    ls_accountgl      TYPE bapiacgl09,
    lt_accountgl      TYPE TABLE OF bapiacgl09 WITH HEADER LINE,

    ls_currencyamount TYPE bapiaccr09,
    lt_currencyamount TYPE TABLE OF bapiaccr09 WITH HEADER LINE,

•  ls_accountreceivable    TYPE  BAPIACAR09 ,
  

•  lt_accountreceivable    TYPE TABLE OF BAPIACAR09 WITH HEADER LINE,
  
    ls_accountpayable TYPE  bapiacap09,
    lt_accountpayable TYPE TABLE OF bapiacap09 WITH HEADER LINE,
  

•  ls_accounttax    TYPE  BAPIACTX09 ,
  

•  lt_accounttax    TYPE TABLE OF BAPIACTX09 WITH HEADER LINE,
  
  
    lt_return         TYPE TABLE OF bapiret2 WITH HEADER LINE,
    lw_return         TYPE          bapiret2,
  

•  LS_EXTENSION2        TYPE BAPIPAREX,
    lt_extension2     TYPE TABLE OF bapiparex WITH HEADER LINE .
  

*&—WORKAREA FOR ZEXTEN
DATA: wa_zexten LIKE zsfi6900001.

DATA:BEGIN OF ls_msg,
type TYPE bapi_mtype, "
message TYPE bapi_msg, "
END OF ls_msg.

DATA:lt_msg LIKE TABLE OF ls_msg,
ls_bseg TYPE bseg,
ls_bkpf TYPE bkpf,
lv_mitkz TYPE skb1-mitkz,
lv_mndid TYPE sepa_mndid,
lv_wrbtr TYPE zfit00090-wrbtr,
lv_lines TYPE buzei .

READ TABLE it_bseg INTO ls_bseg INDEX 1.
*验证是否已创建过会计凭证
CLEAR: ls_msg,ls_bkpf.
SELECT SINGLE bukrs belnr gjahr FROM bkpf INTO CORRESPONDING FIELDS OF ls_bkpf
WHERE xref1_hd = iw_bkpf-xref1_hd
AND xblnr = iw_bkpf-xblnr
AND stblg = ‘’.

IF sy-subrc = 0.
CLEAR ls_msg.
ls_msg-type = ‘S’.
CONCATENATE ls_bkpf-belnr ls_bkpf-bukrs ls_bkpf-gjahr INTO ls_msg-message.
APPEND ls_msg TO lt_msg.
e_json