【Bapi】客户主数据快捷修改

叁歲伎倆 2022-10-06 06:50 149阅读 0赞

比如需求要更新客户主档的某个字段，其实用函数“SD\_CUSTOMER\_MAINTAIN\_ALL”非常方便，比如输入参数I\_KNA1可以更新集团数据，I\_KNB1可以更新公司代码数据，I\_KNVV可以更新销售视图数据，首先查询，然后针对某个字段进行更新即可。

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70][]

IF I_HEAD-ZTERM IS NOT INITIAL.
    
        SELECT SINGLE *
          FROM KNB1 INTO LS_KNB1
           WHERE KUNNR = I_HEAD-KUNNR
             AND BUKRS = I_HEAD-KKBER.
        LS_KNB1-ZTERM = I_HEAD-ZTERM.
    
        CALL FUNCTION 'SD_CUSTOMER_MAINTAIN_ALL'
          EXPORTING
            I_KNB1                  = LS_KNB1
          EXCEPTIONS
            CLIENT_ERROR            = 1
            KNA1_INCOMPLETE         = 2
            KNB1_INCOMPLETE         = 3
            KNB5_INCOMPLETE         = 4
            KNVV_INCOMPLETE         = 5
            KUNNR_NOT_UNIQUE        = 6
            SALES_AREA_NOT_UNIQUE   = 7
            SALES_AREA_NOT_VALID    = 8
            INSERT_UPDATE_CONFLICT  = 9
            NUMBER_ASSIGNMENT_ERROR = 10
            NUMBER_NOT_IN_RANGE     = 11
            NUMBER_RANGE_NOT_EXTERN = 12
            NUMBER_RANGE_NOT_INTERN = 13
            ACCOUNT_GROUP_NOT_VALID = 14
            PARNR_INVALID           = 15
            BANK_ADDRESS_INVALID    = 16
            TAX_DATA_NOT_VALID      = 17
            NO_AUTHORITY            = 18
            COMPANY_CODE_NOT_UNIQUE = 19
            DUNNING_DATA_NOT_VALID  = 20
            KNB1_REFERENCE_INVALID  = 21
            CAM_ERROR               = 22
            OTHERS                  = 23.
        IF SY-SUBRC EQ 0.
          CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
            EXPORTING
              WAIT = 'X'.
          E_SUCC = 'S'. 
        ELSE.
          CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
          E_SUCC = 'E'. 
        ENDIF.
      ENDIF.

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70]: /images/20221005/0b226053e5de40518a5a641d6036e333.png