如何进行bapi_acc_document_post使用说明

DOCUMENTHEADER

财务凭证抬头结构，存放凭证类型、日期等

*  抬头
    ls_documentheader-doc_type   = 'SA'. "总帐科目凭证
    ls_documentheader-username   = sy-uname.
    ls_documentheader-comp_code  = pt_main-bukrs.
    ls_documentheader-doc_date   = pt_main-budat_cb.
    ls_documentheader-pstng_date = pt_main-budat_cb.
    ls_documentheader-fisc_year  = pt_main-budat_cb+0(4).
    ls_documentheader-fis_period = pt_main-budat_cb+4(2).
    ls_documentheader-ref_doc_no = pt_main-belnr.  "CO凭证

ACCOUNTGL

存放与总账相关的行项目信息。

    ls_accountgl-itemno_acc = lv_itemno.         "行项目号
      ls_accountgl-item_text  = pt_main-kstar_txt. "科目描述
      ls_accountgl-gl_account = pt_main-kstar.     "科目
      ls_accountgl-costcenter = pt_main-kostl.     "成本中心
      APPEND ls_accountgl TO lt_accountgl.
      CLEAR ls_accountgl.

ACCOUNTRECEIVABLE

存放与客户相关的行项目信息，可设定特殊总账标识。

  ls_accountreceivable-itemno_acc = 10.                "行项目号
    ls_accountreceivable-customer   = pt_main-bukrs_in.  "转入方公司代码
    ls_accountreceivable-sp_gl_ind  = 'E'.               "特殊总账标识
    APPEND ls_accountreceivable TO lt_accountreceivable.
    CLEAR ls_accountreceivable.

ACCOUNTPAYABLE

存放与供应商相关的行项目信息，可设定特殊总账标识。

  lv_itemno = lv_itemno + 10.
    ls_accountpayable-itemno_acc = lv_itemno.          "行项目号
    ls_accountpayable-vendor_no  = pt_main-bukrs.      "转出方公司代码
    ls_accountpayable-sp_gl_ind  = 'D'.             "特殊总账标识
    APPEND ls_accountpayable TO lt_accountpayable.
    CLEAR ls_accountpayable.

ACCOUNTTAX

存放与税相关行项目

***************行项目30 税
    ls_accounttax-itemno_acc = 30.                      "行项目号
    ls_accounttax-gl_account = '0022210118'.            "科目
    ls_accounttax-tax_code   = 'X3'.                   "税码
    APPEND ls_accounttax TO lt_accounttax.
    CLEAR ls_accounttax.

CURRENCYAMOUNT

存放所有行项目与金额相关的信息，正负对应的记账码系统能自动处理一些，如正40，负50等。

**    行项目金额设定
    lv_sum = lv_sum * ( -1 ).
    ls_currencyamount-itemno_acc = lv_itemno.         "行项目号
    ls_currencyamount-currency   = 'RMB'.             "货币单位
    ls_currencyamount-amt_doccur = lv_sum.            "合计金额
    APPEND ls_currencyamount TO lt_currencyamount.
    CLEAR ls_currencyamount.

10

020101

1000

总账科目

无

20

YH50

500

客户

09E

30

YHG3

1590-

供应商

39E

40

22210118

90

税X3， 6%