POSTING_INTERFACE_DOCUMENT

*FI INTERFACE

*POSTING_INTERFACE_DOCUMENT

*伝票登録FB０１

* ----- 伝票登録スタート

  CALL FUNCTION 'POSTING_INTERFACE_START'

   EXPORTING

     I_FUNCTION               = 'C'         "C呼出Call Transaction、'B'Batch-Inpu

     I_MODE                   = 'A'         "A表示,N非表示

   EXCEPTIONS

     CLIENT_INCORRECT         = 1

     FUNCTION_INVALID         = 2

     GROUP_NAME_MISSING       = 3

     MODE_INVALID             = 4

     UPDATE_INVALID           = 5

     OTHERS                   = 6.

    IF SY-SUBRC <> 0.

* ----- システムエラー

    ENDIF.

* ----- 伝票登録

  CALL FUNCTION 'POSTING_INTERFACE_DOCUMENT'

    EXPORTING

      I_TCODE                       = 'FB01'

   IMPORTING

     E_MSGID                        = 

     E_MSGNO                        = 

     E_MSGTY                        = 

     E_MSGV1                        = 

     E_MSGV2                        = 

     E_MSGV3                        = 

     E_MSGV4                        = 

     E_SUBRC                        = 

    TABLES

     T_BLNTAB                       = []   "財務会計伝票番号テーブル

     T_FTPOST                       = []   "内部転記インタフェ−ス用伝票ヘッダおよび明細

     T_FTTAX                        = []   "内部転記インタフェ−ス用の税

   EXCEPTIONS

     ACCOUNT_MISSING                = 1

     COMPANY_CODE_MISSING           = 2

     POSTING_KEY_INVALID            = 3

     POSTING_KEY_MISSING            = 4

     RECORD_TYPE_INVALID            = 5

     TRANSACTION_CODE_INVALID       = 6

     AMOUNT_FORMAT_ERROR            = 7

     TOO_MANY_LINE_ITEMS            = 8

     COMPANY_CODE_INVALID           = 9

     SCREEN_NOT_FOUND               = 10

     NO_AUTHORIZATION               = 11

     OTHERS                         = 12.

    IF SY-SUBRC <> 0.

* ----- システムエラー

    ENDIF.

* ----------------------------------------

* FTPOST 内部転記インタフェ−ス用伝票ヘッダおよび明細

* STYPE  STYPE_PI  CHAR 1 0     内部転記インタフェースのレコードタイプ    ['K'ヘッダ　'P'明細]

* COUNT  COUNT_PI  NUMC 3 0     伝票ヘッダ/明細カウンタ（転記インタフェース） 1第一明細 2第二明細 3第三明細・・・]

* FNAM   BDC_FNAM  CHAR 132 0   BDC 項目名               [例えば、FB01画面のDynpro 項目名'BKPF-BELNR']

* FVAL   BDC_FVAL  CHAR 132 0   BDC 項目値               [上記項目名に対する値　'10000000']

* ----------------------------------------