FI 笔记

喵五一

已于 2023-01-26 15:16:40 修改

阅读量451

点赞数

分类专栏： SAP ABAP 文章标签：开发语言

于 2023-01-26 15:07:04 首次发布

本文链接：https://blog.csdn.net/qq_40672979/article/details/128765314

版权

SAP ABAP 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

1.AP（应付）事务码

1.F110自动支付（地表：REGUH，REGUP）

自动支付步骤：FB60生成发票（请求书）凭证（付款方式选择自动付款）→在FBL1N里可以看到供应商未付款凭证→F110自动支付。

2.自动支付的配置：

1.FI01:维护银行主数据

2.FBZP维护收付程序设置

在国家的支付方式里面可配置DME

格式的自建程序。

2.FB05(清账)

f-53、f-28 FB05 = F-53 + F-28


DATA: LT_BLNTAB  TYPE TABLE OF BLNTAB  WITH HEADER LINE,
      LT_FTCLEAR TYPE TABLE OF FTCLEAR WITH HEADER LINE,
      LT_FTPOST  TYPE TABLE OF FTPOST  WITH HEADER LINE,
      LT_FTTAX   TYPE TABLE OF FTTAX   WITH HEADER LINE.
DATA:LS_SYST     TYPE SYST.
DATA:LV_MONAT    TYPE BKPF-MONAT.
DATA:LV_GJAHR    TYPE BKPF-GJAHR.
DATA:LV_DOCU     TYPE STRING.
DATA:LV_POSNR    TYPE I.
DATA:LV_WRBTR    TYPE CHAR20.


DEFINE POPULATE_FTPOST.
  lt_ftpost-stype = &1.
  lt_ftpost-count = &2.
  lt_ftpost-fnam = &3.
  lt_ftpost-fval = &4.
  append lt_ftpost.
END-OF-DEFINITION.

*未消込データ
*DEFINE POPULATE_FTCLEAR.
LT_FTCLEAR-AGKOA  = 'K'.               "K for vender,D for custmor, S for GL
LT_FTCLEAR-AGKON  = 'ZAP001'.          " 科目  ワークリストの勘定コードまたはキー
LT_FTCLEAR-AGBUK  = '1510'.            "公司代码　　　アドオンテーブル-会社コード
LT_FTCLEAR-XNOPS  = 'X'.               "支払依頼
LT_FTCLEAR-SELFD  = 'PYORD'.           "支払依頼
LT_FTCLEAR-SELVON = '2909'.            "支払依頼番号
APPEND LT_FTCLEAR.
*END-OF-DEFINITION.

*DATA(L_MONEY) = '60'.
*CONDENSE L_MONEY.
*SHIFT L_MONEY LEFT DELETING LEADING SPACE.

*过账创建凭证
*K-->Header,P-->Item
POPULATE_FTPOST:
  'K' 1 'BKPF-BUKRS' '1510',            "会社コード
  'K' 1 'BKPF-BLART' 'KZ',              "伝票タイプ
  'K' 1 'BKPF-BLDAT'  SY-DATUM,         "伝票日付
  'K' 1 'BKPF-BUDAT'  SY-DATUM,         "転記日付
  'K' 1 'BKPF-MONAT' '04',              "会計期間
  'K' 1 'BKPF-WAERS' 'USD'.             "通貨/レート

POPULATE_FTPOST:
  'P' '001' 'RF05A-NEWBS' '50',          "记账码     次明細の転記キー
  'P' '001' 'RF05A-NEWKO' '11001000',    "记账科目   次明細の勘定またはマッチコード
  'P' '001' 'BSEG-WRBTR' '170'.           "金额


*清账开始----采用剩余清帐
CALL FUNCTION 'POSTING_INTERFACE_START'
  EXPORTING
    I_CLIENT           = SY-MANDT
    I_FUNCTION         = 'C'
    I_KEEP             = 'X'
*    I_MODE             = 'A'             "A for step by step,N default,for background
  EXCEPTIONS
    CLIENT_INCORRECT   = 1
    FUNCTION_INVALID   = 2
    GROUP_NAME_MISSING = 3
    MODE_INVALID       = 4
    UPDATE_INVALID     = 5
    OTHERS             = 6.

CALL FUNCTION 'POSTING_INTERFACE_CLEARING'
  EXPORTING
    I_AUGLV                    = 'AUSGZAHL'       "支払
    I_TCODE                    = 'FB05'           "只支持FB05
    I_SGFUNCT                  = 'C'
  IMPORTING
    E_MSGID                    = LS_SYST-MSGID
    E_MSGNO                    = LS_SYST-MSGNO
    E_MSGTY                    = LS_SYST-MSGTY
    E_MSGV1                    = LS_SYST-MSGV1
    E_MSGV2                    = LS_SYST-MSGV2
    E_MSGV3                    = LS_SYST-MSGV3
    E_MSGV4                    = LS_SYST-MSGV4
  TABLES
    T_BLNTAB                   = LT_BLNTAB
    T_FTCLEAR                  = LT_FTCLEAR
    T_FTPOST                   = LT_FTPOST
    T_FTTAX                    = LT_FTTAX
  EXCEPTIONS
    CLEARING_PROCEDURE_INVALID = 1
    CLEARING_PROCEDURE_MISSING = 2
    TABLE_T041A_EMPTY          = 3
    TRANSACTION_CODE_INVALID   = 4
    AMOUNT_FORMAT_ERROR        = 5
    TOO_MANY_LINE_ITEMS        = 6
    COMPANY_CODE_INVALID       = 7
    SCREEN_NOT_FOUND           = 8
    NO_AUTHORIZATION           = 9
    OTHERS                     = 10.

IF SY-SUBRC = 0.

  LOOP AT LT_BLNTAB.
    WRITE: LT_BLNTAB-BELNR,'cheng gong'.

  ENDLOOP.

ELSE .
  MESSAGE 'shi bai'  TYPE 'E'.

ENDIF.

*"清账结束
*CALL FUNCTION 'POSTING_INTERFACE_END'
*  EXCEPTIONS
*    SESSION_NOT_PROCESSABLE = 1