SAP BP 分类与字段是不一样的

员工客商Z004

正常客商

客商重名校验机制

复制代码
  METHOD if_ex_bupa_addr_check~check.
    DATA:
      lv_id     TYPE ztexit-id,          "增强序列号
      lv_status TYPE char1,              "增强状态
      lv_str    TYPE string,
      ls_but000 TYPE but000,
      ls_return TYPE bapiret2.

*   客商名称存在性检查
    lv_id = 'ZSD102'.
    CALL FUNCTION 'ZABAP_CHECK_EXIT'
      EXPORTING
        id       = lv_id
      IMPORTING
        e_status = lv_status.
    IF lv_status <> 'S'.
      RETURN.
    ENDIF.

    IF is_but000-bu_group = '04' OR is_but000-bu_group = 'Z005'.
      RETURN.
    ENDIF.
    IF iv_activity <> '01' AND iv_activity <> '02'.
      RETURN.
    ENDIF.

    IF is_but000-partner+0(1) <> '#'.
      lv_str = ' PARTNER <> IS_BUT000-PARTNER '.
    ENDIF.
    IF is_but000-bu_group <> 'Z004'.
      CONCATENATE lv_str  ' AND  NAME_ORG4 = IS_BUT000-NAME_ORG4 ' INTO lv_str.
      SELECT SINGLE *
        INTO ls_but000
        FROM but000
       WHERE name_org1 = is_but000-name_org1   "组织名称 1
         AND name_org2 = is_but000-name_org2   "组织名称 2
         AND name_org3 = is_but000-name_org3   "组织名称 3
         AND (lv_str).
    ELSE.
      SELECT SINGLE *
      INTO LS_BUT000
      FROM BUT000
      WHERE NAME_FIRST = IS_BUT000-NAME_FIRST   "组织名称 1
      AND NAME_LAST = IS_BUT000-NAME_LAST   "组织名称 2
      AND (LV_STR).
    ENDIF.
    IF sy-subrc = 0.
      ls_return-type = 'E'.
      ls_return-id   = '00'.
      ls_return-number = '001'.
      ls_return-message_v1 = '名字与客商'.
      ls_return-message_v2 = ls_but000-partner.
      ls_return-message_v3 = '一致'.
      APPEND ls_return TO et_return.
    ENDIF.

  ENDMETHOD.
相关推荐
qq_431393914 小时前
自建博客网站
其他
AI科技星6 小时前
接近光速运动下的光速不变性:基于张祥前统一场论的推导与验证
数据结构·人工智能·经验分享·算法·计算机视觉
GEO科技6 小时前
AI搜索驱动的品牌传播变革:品牌如何在“被搜索”转向“被理解”的浪潮中重构增长力
经验分享
Kent Gu7 小时前
Qutatus读取FPGA内部程序
其他·1024程序员节
Metaphor6928 小时前
Java操作PDF图层:添加、设置和删除
经验分享
雾岛听蓝9 小时前
C语言:使用顺序表实现通讯录
c语言·数据结构·经验分享·笔记·visualstudio
weixin_5372170613 小时前
省考资源合集
经验分享
小蜗的房子13 小时前
MySQL学习之SQL语法与操作
数据结构·数据库·经验分享·sql·mysql·学习方法·数据库开发
讯捷蓝达14 小时前
龙岗客户 IBM x3650 M5服务器system board fault故障,上门快修分享
经验分享
皮特石马龙15 小时前
github 双因子验证6位动态码免费攻略
经验分享·github