SAP SD BP 组代码Konzs 校验增强

gavin_gxh2024-10-09 9:26

组代码：公司用作经销商这边有多个抬头组代码用作该客户的分组标识，但是维护人员在维护的时候缺少前导0 ，使得相关报表在查询的时候，因为这个而取数不完整。

想着做一个增强，把前导0 补齐

F1-技术信息

3000 找到对应的 PAI

我增强在 dynpro_pai_end

增强代码逻辑

复制代码

 FIELD-SYMBOLS:<FS_KONZS> TYPE ANY.
     DATA:KUNNR LIKE KNA1-KUNNR.
  DATA:
        LV_ID     TYPE CHAR10,   "增强序列号
        LV_STATUS TYPE CHAR1.     "增强状态
  LV_ID = 'ZSD128'.
     CALL FUNCTION 'ZABAP_CHECK_EXIT'
     EXPORTING
       ID       = LV_ID
     IMPORTING
       E_STATUS = LV_STATUS.

    IF LV_STATUS = 'S'.
        ASSIGN ('(SAPLCVI_FS_UI_CUSTOMER)GS_KNA1-KONZS') TO <FS_KONZS>.
        IF <FS_KONZS> IS ASSIGNED and <FS_KONZS> is not INITIAL.
         KUNNR = <FS_KONZS>.
         IF STRLEN( KUNNR ) < 10 AND STRLEN( KUNNR ) <> 4.
           <FS_KONZS> = |{ KUNNR ALPHA = IN }|.
         ENDIF.
        ENDIF.
     ENDIF.