SAP ABAP VA01利润中心替代

根据不同的条件替代销售订单利润中心

 

 EXITS-NAME  = 'U916'.
  EXITS-PARAM = C_EXIT_PARAM_FIELD.
  EXITS-TITLE = '销售订单利润中心增强'.             "
  APPEND EXITS.

FORM U916 USING C_PRCTR TYPE PCASUB-PRCTR.
  SELECT
    SINGLE
    BUKRS
    INTO @DATA(LV_BUKRS)
    FROM TVKO
    WHERE VKORG EQ @PCASUB-VKORG .
  IF LV_BUKRS IS NOT INITIAL .
    SELECT
      SINGLE
       *
      INTO @DATA(LS_CONFIG)
      FROM ZFIT_PRCTR
      WHERE VKBUR EQ @PCASUB-VKBUR
      AND BUKRS EQ @LV_BUKRS .
    IF SY-SUBRC  EQ  0 .
      IF LS_CONFIG-PRCTR IS NOT INITIAL .
        PCASUB-PRCTR = LS_CONFIG-PRCTR .
      ENDIF .
    ENDIF .
  ENDIF .
ENDFORM .