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%