工单组件默认储存地点

CMOD->PPCO0005

*&---------------------------------------------------------------------*
*& 包含               ZXCO1U05
*&---------------------------------------------------------------------*

CASE caufvd_i-auart .
  WHEN 'ZP08' OR 'ZP09' OR 'ZP10'.
    SELECT SINGLE alort,elpro
      FROM mkal
      WHERE matnr = @caufvd_i-matnr
        AND werks = @caufvd_i-werks
        AND verid = @prodver_i
      INTO @DATA(ls_mkal).
    IF ls_mkal-elpro IS NOT INITIAL.
      strlc_e = ls_mkal-elpro.
    ENDIF.
    CLEAR ls_mkal.
  WHEN 'ZP01' OR 'ZP02' OR 'ZP03' OR 'ZP04' OR 'ZP05' OR 'ZP06' OR 'ZP07'.
    SELECT SINGLE
           m~werks,
           m~matkl,
           m~mtart,
           m~clgort,
           m~rlgort
      FROM ztmm0011 AS m
      INNER JOIN mara AS a ON a~matkl = m~matkl AND a~mtart = m~mtart
      WHERE a~matnr = @resv_i-matnr
        AND m~werks = @resv_i-werks
     INTO @DATA(ls_ztmm0011).
    IF sy-subrc = 0 AND ls_ztmm0011-clgort IS NOT INITIAL.
      strlc_e = ls_ztmm0011-clgort.
    ENDIF.
ENDCASE.