copa增强

COPA0001

PROGRAM zzljycoen_0001.
---------------------------------------------------------------------

• Description: the purpose of this subroutine
  ---------------------------------------------------------------------
  FORM exit_saplkedrcopa_001 USING i_operating_concern TYPE tkeb-erkrs
  i_derivation_date TYPE sy-datum
  i_step_id TYPE tkedrs-stepid
  i_copa_item TYPE any
  i_global TYPE kedrcopa
  CHANGING e_copa_item TYPE any
  e_global TYPE any
  e_exit_is_active TYPE any
  e_failed TYPE any.

  TYPES: BEGIN OF ty_lips,
  vbeln TYPE lips-vbeln,
  posnr TYPE lips-posnr,
  vgbel TYPE lips-vgbel,
  vgpos TYPE lips-vgpos,
  bwtar TYPE lips-bwtar,
  END OF ty_lips.

  DATA: ls_ce0coft TYPE ce0coft.
  DATA: lt_lips TYPE STANDARD TABLE OF ty_lips,
  ls_lips TYPE ty_lips.

  FIELD-SYMBOLS <fs_item> TYPE any.

  ASSIGN (’(SAPLKEDR)<copa_item>’) TO <fs_item> .
  if sy-subrc = 0.
  ls_ce0coft = <fs_item>.
  unassign <fs_item>.
  endif.

  IF i_operating_concern = ‘COFT’.
  IF ls_ce0coft-ww030 IS INITIAL .

  SELECT
   SINGLE   knrmat INTO ls_ce0coft-ww030
    FROM kondns INNER JOIN kotn010
    ON kondns~knumh = kotn010~knumh
    WHERE kotn010~kunnr  = ls_ce0coft-kndnr
    AND   kotn010~matnr  = ls_ce0coft-artnr
    AND   kotn010~kschl IN ('ZC01', 'ZC02', 'ZD02', 'ZD01', 'ZJ00').
  
  IF ls_ce0coft-ww030 IS INITIAL .
  
    IF ls_ce0coft-ww029 IS NOT INITIAL .
      SELECT
        SINGLE
        a~matnr
        a~prodh
        INTO (ls_ce0coft-ww030,ls_ce0coft-ww031)
        FROM ztsd_0004_12 AS a
        INNER JOIN ztsd_0005_02 AS b
        ON a~zcxbh = b~zcxbh
        WHERE b~zjabh = ls_ce0coft-ww029.
    ENDIF.
  
  ENDIF.
  
  IF ls_ce0coft-ww030 IS INITIAL .
    IF ls_ce0coft-ww028 IS NOT INITIAL .
      SELECT SINGLE matnr prodh INTO (ls_ce0coft-ww030,ls_ce0coft-ww031)
        FROM ztsd_0004_12
        WHERE  zcxbh = ls_ce0coft-ww028.
    ENDIF.
  ENDIF.
  

  ENDIF.
  ENDIF.
  e_copa_item = ls_ce0coft.

•  e_exit_is_active  = 'X'.
  

ENDFORM.