SAP:SD客户主数据的增强user-exit SAPMF02D .

最新推荐文章于 2024-09-20 13:28:42 发布

转载最新推荐文章于 2024-09-20 13:28:42 发布 · 711 阅读

文章标签：

#XD01

SAP 同时被 2 个专栏收录

433 篇文章

订阅专栏

User exit

58 篇文章

订阅专栏

通过检查系统代码，实现校验客户信息唯一性，确保在不同的交易代码或成本组下，客户名称不重复。

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

*&---------------------------------------------------------------------*
*&  包括                ZXF04U01
*&---------------------------------------------------------------------*
*校验客户信息唯一性 by zhanglin 20101013

DATA: ls_kna1 TYPE kna1.

DATA: l_name1 TYPE kna1-name1.

CHECK sy-tcode = 'XD01' OR sy-tcode = 'XD02'.

l_name1 = i_kna1-name1.

SHIFT l_name1 LEFT DELETING LEADING space.

IF sy-tcode = 'XD01'.
  IF l_name1 IS NOT INITIAL.
    IF i_kna1-kunnr IS NOT INITIAL.
      SELECT SINGLE * INTO ls_kna1
      FROM kna1
      WHERE name1 = l_name1
        AND kunnr <> i_kna1-kunnr.
    ELSE.
      SELECT SINGLE * INTO ls_kna1
      FROM kna1
      WHERE name1 = l_name1.
    ENDIF.
    IF sy-subrc = 0.
      MESSAGE e000(zsdmsg) WITH i_kna1-name1.
    ENDIF.
  ENDIF.

  IF i_kna1-stceg IS NOT INITIAL.
    IF i_kna1-kunnr IS NOT INITIAL.
      SELECT SINGLE * INTO ls_kna1
      FROM kna1
      WHERE stceg = i_kna1-stceg
        AND kunnr <> i_kna1-kunnr.
    ELSE.
      SELECT SINGLE * INTO ls_kna1
      FROM kna1
      WHERE stceg = i_kna1-stceg.
    ENDIF.
    IF sy-subrc = 0.
      MESSAGE e001(zsdmsg) WITH i_kna1-stceg.
    ENDIF.
  ENDIF.
ELSE.
  IF l_name1 IS NOT INITIAL.
    SELECT SINGLE * INTO ls_kna1
    FROM kna1
    WHERE name1 = l_name1
      AND kunnr <> i_kna1-kunnr.
    IF sy-subrc = 0.
      MESSAGE e000(zsdmsg) WITH i_kna1-name1.
    ENDIF.
  ENDIF.

  IF i_kna1-stceg IS NOT INITIAL.
    SELECT SINGLE * INTO ls_kna1
    FROM kna1
    WHERE stceg = i_kna1-stceg
      AND kunnr <> i_kna1-kunnr.
    IF sy-subrc = 0.
      MESSAGE e001(zsdmsg) WITH i_kna1-stceg.
    ENDIF.
  ENDIF.
ENDIF.

IF sy-tcode = 'XD01' OR sy-tcode = 'XD02'.
  IF i_knvv-spart = '01' AND i_kna1-lzone IS INITIAL.
    MESSAGE e005(zsdmsg).
  ENDIF.
ENDIF.