SELECT  SUM( d~wogbtr ) AS wogbtr  a~aufnr  a~auart b~ingpr c1~anlnr c1~anlun e1~budat d~beknz c1~bukrs

         FROM ( ( ( ( cobk AS e1
         INNER JOIN coep AS d  ON d~kokrs  = e1~kokrs
                               AND d~belnr  = e1~belnr )

         INNER JOIN aufk AS a  ON  a~objnr  = d~objnr )

         INNER JOIN afih AS b  ON  a~aufnr  = b~aufnr )

         INNER JOIN iloa AS c1 ON  c1~iloan  = b~iloan )

  INTO CORRESPONDING FIELDS OF TABLE itab_a

         WHERE  a~auart  IN s_auart  AND
                a~autyp  = '30'      AND
                a~bukrs  = pa_bukrs  AND
                b~ingpr IN  s_ingrp AND
                d~gjahr EQ  pa_gjahr AND
                d~perio  IN  s_perio AND
                d~wrttp  = '04' AND
                d~beknz = 'A'

  GROUP BY a~aufnr  a~auart b~ingpr c1~anlnr c1~anlun e1~budat d~beknz c1~bukrs .

SORT itab_a BY aufnr budat.


  SELECT  SUM( d~wogbtr ) AS wogbtr  a~aufnr  a~auart b~ingpr c1~anlnr c1~anlun e1~budat d~beknz c1~bukrs

         FROM ( ( ( ( cobk AS e1
         INNER JOIN coep AS d  ON d~kokrs  = e1~kokrs
                               AND d~belnr  = e1~belnr )

         INNER JOIN aufk AS a  ON  a~objnr  = d~objnr )

         INNER JOIN afih AS b  ON  a~aufnr  = b~aufnr )

         INNER JOIN iloa AS c1 ON  c1~iloan  = b~iloan )

  INTO CORRESPONDING FIELDS OF TABLE itab_s

         WHERE  a~auart  IN s_auart  AND
                a~autyp  = '30'      AND
                a~bukrs  = pa_bukrs  AND
                b~ingpr IN  s_ingrp AND
                d~gjahr EQ  pa_gjahr AND
                d~perio  IN  s_perio AND
                d~wrttp  = '04' AND
               ( d~beknz = 'S' or d~beknz = 'H' )

  GROUP BY a~aufnr  a~auart b~ingpr c1~anlnr c1~anlun e1~budat d~beknz c1~bukrs .
  SORT itab_s BY aufnr budat.

  SELECT aufk~aufnr aufk~auart afih~ingpr iloa~anlnr iloa~anlun iloa~bukrs SUM( coep~wogbtr ) coep~beknz cobk~budat
    FROM cobk
      INNER JOIN coep
        ON coep~kokrs  = cobk~kokrs
        AND coep~belnr = cobk~belnr
      INNER JOIN aufk
        ON  aufk~objnr = coep~objnr
      INNER JOIN afih
        ON  aufk~aufnr = afih~aufnr
      INNER JOIN iloa
        ON  iloa~iloan = afih~iloan
    INTO TABLE itab_as
    WHERE aufk~auart IN s_auart
      AND aufk~autyp = '30'
      AND aufk~bukrs = pa_bukrs
      AND afih~ingpr IN  s_ingrp
      AND coep~gjahr EQ  pa_gjahr
      AND coep~perio IN  s_perio
      AND coep~wrttp = '04'
      AND ( coep~beknz = 'A' or coep~beknz = 'S' or coep~beknz = 'H')
    GROUP BY aufk~aufnr  aufk~auart afih~ingpr iloa~anlnr iloa~anlun cobk~budat coep~beknz iloa~bukrs .
  SORT itab_as  BY aufnr budat.
IF sy-subrc = 0.
  LOOP AT itab_as.
    IF itab_as-beknz = 'S' or itab_a-beknz = 'H'.
      APPEND itab_as to itab_s2.
      SORT itab_s2  BY aufnr budat.
    ENDIF.
    IF itab_as-beknz = 'A'.
      APPEND itab_as to itab_a.
      SORT itab_a  BY aufnr budat.
    ENDIF.
  ENDLOOP.
ENDIF.

*Разработка по оптимизации запросов!
*Выборка для AUFK
SELECT aufk~aufnr aufk~auart aufk~objnr afih~ingpr iloa~anlnr iloa~anlun iloa~bukrs
   FROM iloa
   INNER JOIN afih
     ON iloa~iloan = afih~iloan
   INNER JOIN aufk
     ON aufk~aufnr = afih~aufnr
   INTO TABLE it_EXZAMPL
   WHERE aufk~auart  IN s_auart
      AND aufk~autyp  = '30'
      AND aufk~bukrs  = pa_bukrs
      AND afih~ingpr IN  s_ingrp
   GROUP BY aufk~aufnr aufk~auart aufk~objnr afih~ingpr iloa~anlnr iloa~anlun iloa~bukrs.
  SORT it_EXZAMPL BY objnr.

*Выборка для COEP
  SELECT  SUM( coep~wogbtr ) coep~beknz coep~gjahr coep~objnr cobk~budat
    FROM cobk
    INNER JOIN coep
      ON cobk~kokrs  = coep~kokrs
      AND cobk~belnr = coep~belnr
    INTO TABLE it_coep_cobk
    WHERE coep~gjahr = pa_gjahr
      AND coep~perio IN s_perio
      AND coep~wrttp = '04'
      AND coep~beknz IN ('A','S','H')
     GROUP BY coep~beknz coep~gjahr coep~objnr cobk~budat.
  SORT it_coep_cobk BY objnr.
 
*Объединение 2-х запросов в одну таблицу! Не доработано так как не вижу толку от такой оптимизации!
LOOP AT it_coep_cobk.
*  CHECK it_EXZAMPL is NOT INITIAL.
  READ TABLE it_EXZAMPL  INDEX 1.
  IF sy-subrc <> 0.
    IF it_EXZAMPL-objnr = it_coep_cobk-objnr.
      CLEAR wtab3.
      MOVE-CORRESPONDING it_coep_cobk to wtab3.
      APPEND wtab3 TO itab_as.
      DELETE it_EXZAMPL  INDEX 1.
    ELSEIF it_EXZAMPL-objnr <> it_coep_cobk-objnr.
      CONTINUE.
    ELSE.
      EXIT.
    ENDIF.
  ENDIF.
ENDLOOP.