CO01/CO07/CJ02 结算规则增强

Lisson 3

已于 2023-06-29 18:00:37 修改

阅读量1.8k

点赞数 1

分类专栏：增强文章标签： java

于 2022-11-22 13:09:17 首次发布

本文链接：https://blog.youkuaiyun.com/qq_40223617/article/details/127980835

版权

博客内容涉及对SAP中CO01/CO07/CJ02结算规则的增强，特别是对PPCO0007出口函数的优化。文章指出当前EXIT_SAPLCOZV_001方法仅限于创建时使用，在CO02操作时无法应用，推荐采用新的方法以解决这个问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

增强点：PPCO0007

出口函数EXIT_SAPLCOZV_001

DATA it_objnr TYPE STANDARD TABLE OF ionrb WITH HEADER LINE.

DATA it_cobra TYPE STANDARD TABLE OF cobra WITH HEADER LINE.
DATA it_cobrb TYPE STANDARD TABLE OF cobrb WITH HEADER LINE.
*.COBRA-BUFFER (SEE FM KOBS)
TYPES:  BEGIN OF ty_cobra_buf.
          INCLUDE STRUCTURE cobra.
          TYPES:  uflag LIKE dkobr-upd_flag,
        END OF ty_cobra_buf.
*.COBRB-PUFFER MIT ?NDERUNGSFLAG (SEE FM KOBS)
TYPES:  BEGIN OF ty_cobrb_buf.
          INCLUDE STRUCTURE cobrb.
          TYPES:  uflag LIKE dkobr-upd_flag,
        END OF ty_cobrb_buf.
DATA l_mem_cobra TYPE STANDARD TABLE OF ty_cobra_buf WITH HEADER LINE.
DATA l_mem_cobrb TYPE STANDARD TABLE OF ty_cobrb_buf WITH HEADER LINE.

CLEAR:l_mem_cobrb,l_mem_cobrb[].
IF sy-tcode  =  'CO01'.
  CHECK header_imp-werks = '5309' AND header_imp-auart = 'ZYF2'.
  it_objnr-objnr = header_imp-objnr.
  APPEND it_objnr.
  CALL FUNCTION 'K_SRULE_EXPORT_IMPORT'
    EXPORTING
      i_mode     = 'EX'
    EXCEPTIONS
      wrong_mode = 1
      OTHERS     = 2.

  IMPORT l_mem_cobra l_mem_cobrb FROM MEMORY ID 'K_SRULE'.

* 修改 IT_COBRA, IT_COBRB.

  l_mem_cobrb-objnr = it_objnr-objnr.
  l_mem_cobrb-lfdnr = 1.
  l_mem_cobrb-perbz = 'GES'."FUL "结算类