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

最新推荐文章于 2024-04-11 11:15:37 发布

Vince Chang

最新推荐文章于 2024-04-11 11:15:37 发布

阅读量4k

点赞数

分类专栏： ABAP增强 ABAP开发

本文链接：https://blog.csdn.net/zeewjj/article/details/7630351

版权

ABAP开发同时被 2 个专栏收录

94 篇文章 7 订阅

订阅专栏

ABAP增强

33 篇文章 2 订阅

订阅专栏

*&---------------------------------------------------------------------*
*&  包括                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.