* ---------------------------------------------------------------------
    IF  old_price_order_active->*  = abap_true
    AND special_discount_active->* = abap_false.
      CONCATENATE 'Lese Artikel für'(006)
                  'Altpreisbestellung'(003)
      INTO progress_text SEPARATED BY space.
      CONCATENATE '('
                  '   ( old_konp~kpein = new_konp~kpein'
                  ' AND old_konp~kmein = new_konp~kmein'
                  ' AND old_konp~kbetr < new_konp~kbetr )'
                  'OR ( old_konp~kpein <> new_konp~kpein'
                  '  OR old_konp~kmein <> new_konp~kmein'
                  '  OR old_konp~kbetr <> new_konp~kbetr )'
                  ')'
      INTO cond_old_lt_new SEPARATED BY space.              "#EC NOTEXT
    ELSE.
      CONCATENATE 'Lese Artikel für'(006)
                  'Altpreisbestellung & Sonderrabatt'(005)
      INTO progress_text SEPARATED BY space.
    ENDIF.
    cl_progress_indicator=>progress_indicate( i_text = progress_text
                                              i_output_immediately = abap_true ).

* ---------------------------------------------------------------------
    SELECT
    eina~matnr
    eina~lifnr
    eina~wglif
    eina~kalkgr
    eina~yy_extgr
    eina~yy_intgr
    eina~idnlf
    eina~lifbi
    mara~matkl
    mara~mstae
    mara~meins
    mara~brgew
    mara~gewei
    marc~werks
    marc~dismm
    marc~maabc
    marc~dispo
    marc~plifz
    marc~webaz
    marc~minbe
    marc~rdprf
    marc~bstrf
    marc~bstmi
    marc~lagpr
    marc~losfx
    marc~/fis/m_lgadt
    marc~yy_belgr
    mbew~verpr
    old_a870~knumh AS old_knumh
    old_konp~kbetr AS old_price
    old_konp~kpein AS old_kpein
    old_konp~kmein AS old_kmein
    new_a870~knumh AS new_knumh
    new_konp~kbetr AS new_price
    new_konp~kpein AS new_kpein
    new_konp~kmein AS new_kmein
*    cur_a870~knumh AS cur_knumh
*    cur_konp~kbetr AS cur_price
*    cur_konp~konwa
*    cur_konp~kpein
*    cur_konp~kmein
    FROM eina INNER JOIN mara ON mara~matnr = eina~matnr
              INNER JOIN marc ON marc~matnr = eina~matnr
              INNER JOIN mbew ON  mbew~matnr = marc~matnr
                              AND mbew~bwkey = marc~werks
                              AND mbew~bwtar = ''
              INNER JOIN a870 AS old_a870 ON  old_a870~kappl = 'M'
                                          AND old_a870~kschl = 'YE01'
                                          AND old_a870~ekorg = purchasing_organization
                                          AND old_a870~lifnr = eina~lifnr
                                          AND old_a870~matnr = eina~matnr
                                          AND old_a870~datbi >= pricing_date_old->*
                                          AND old_a870~datab <= pricing_date_old->*
              INNER JOIN konp AS old_konp ON  old_konp~knumh = old_a870~knumh
                                          AND old_konp~kopos = '01'
                                          AND old_konp~kappl = old_a870~kappl
                                          AND old_konp~kschl = old_a870~kschl
                                          AND old_konp~loevm_ko = abap_false
              INNER JOIN a870 AS new_a870 ON  new_a870~kappl = 'M'
                                          AND new_a870~kschl = 'YE01'
                                          AND new_a870~ekorg = purchasing_organization
                                          AND new_a870~lifnr = eina~lifnr
                                          AND new_a870~matnr = eina~matnr
                                          AND new_a870~datbi >= pricing_date_new->*
                                          AND new_a870~datab <= pricing_date_new->*
              INNER JOIN konp AS new_konp ON  new_konp~knumh = new_a870~knumh
                                          AND new_konp~kopos = '01'
                                          AND new_konp~kappl = new_a870~kappl
                                          AND new_konp~kschl = new_a870~kschl
                                          AND new_konp~loevm_ko = abap_false
*              INNER JOIN a870 AS cur_a870 ON  cur_a870~kappl = 'M'
*                                          AND cur_a870~kschl = 'YE01'
*                                          AND cur_a870~ekorg = purchasing_organization
*                                          AND cur_a870~lifnr = eina~lifnr
*                                          AND cur_a870~matnr = eina~matnr
*                                          AND cur_a870~datbi >= sy-datum
*                                          AND cur_a870~datab <= sy-datum
*              INNER JOIN konp AS cur_konp ON  cur_konp~knumh = cur_a870~knumh
*                                          AND cur_konp~kopos = '01'
*                                          AND cur_konp~kappl = cur_a870~kappl
*                                          AND cur_konp~kschl = cur_a870~kschl
*                                          AND cur_konp~loevm_ko = abap_false
    INTO CORRESPONDING FIELDS OF TABLE old_price_materials
    WHERE eina~matnr    IN range_matnr->*
    AND   eina~loekz    =  abap_false
    AND   eina~lifnr    IN range_yy_relif->*
    AND   eina~lifnr    IN range_flief->*
    AND   eina~wglif    IN range_wglif->*
    AND   eina~kalkgr   IN range_kalkgr->*
    AND   eina~yy_extgr IN range_yy_extgr->*
    AND   eina~yy_intgr IN range_yy_intgr->*
    AND   eina~relif    IN range_relif
    AND   mara~matkl    IN range_matkl->*
    AND   mara~mstae    =  'V1'
    AND   marc~ekgrp    IN range_ekgrp->*
    AND   marc~werks    IN range_werks->*
    AND   marc~dispo    IN range_dispo->*
    AND (    marc~sobsl = '  '
          OR marc~sobsl = '10'
          OR marc~sobsl = '30' )
    AND (    marc~dismm = 'Y2'
          OR marc~dismm = 'V1' )
    AND (cond_old_lt_new).