ABAP清账例子2

 

本文作者: GavinDong

版权属于: GavinDong博客

文章链接: https://gavindong.com/1707.html

如果使用过程中遇到问题,可 **点击此处** 交流沟通。

版权所有,转载时必须以链接形式注明作者和原始出处及本声明。

(3)

相关文章

回复 ag

登录后才能评论

评论列表(2条)

  • ag的头像
    ag 2017.11.20 18:20

    *宏.
    DEFINE populate_ftclear.
    it_ftclear-agkoa = ‘D’. “科目类型,D为客户.
    it_ftclear-agbuk = lv_ftclear_agbuk. “公司代码.
    it_ftclear-selfd = ‘BELNR’. “凭证索引中的字段名.
    it_ftclear-xnops = ‘X’. “只选择不是特定总帐的未清项目.
    it_ftclear-selvon = &1. “会计凭证抬头参考号(BKPF-AWKEY).
    append it_ftclear.
    END-OF-DEFINITION.

    DEFINE populate_ftpost.
    it_ftpost-stype = &1. “K为header,P为item.
    it_ftpost-count = &2. “凭证抬头或行项目的计数器(记帐界面).
    it_ftpost-fnam = &3. “BDC 字段名.
    it_ftpost-fval = &4. “BDC 字段值.
    append it_ftpost.
    END-OF-DEFINITION.

    • ag的头像
      ag 2017.11.20 18:21

      CALL FUNCTION ‘POSTING_INTERFACE_START’
      EXPORTING
      i_function = ‘C’ “B= BDC, C= Call Trans.
      i_mode = ‘N’ “N表示BDC执行于后台.
      i_update = ‘S’ “S: 数据更新完成后执行下一个操作
      i_keep = ‘X’ “用于已处理会话的队列删除标志.
      EXCEPTIONS
      client_incorrect = 1
      function_invalid = 2
      group_name_missing = 3
      mode_invalid = 4
      update_invalid = 5
      OTHERS = 6.
      IF sy-subrc <> 0.
      * Implement suitable error handling here
      ENDIF.