Report Optimierung

Code: Alles auswählen.

* interne Tabellen
data: begin of gt_material occurs 0,
           matnr  TYPE makt-mara,
           maktx TYPE makt-maktx,
           ntgew TYPE mara-ntgew,
           gewei TYPE  mara-gewei,
           zzlkla TYPE mara-zzlkla
           zzassp TYPE mara-zzassp
           stawn TYPE marc-stawn.
         end of gt_amterial


*&---------------------------------------------------------------------*
*&      Form  READ_MATERAIL
*&---------------------------------------------------------------------*
form read_material.

  clear:   gt_material.
  refresh: gt_material.

  check not i_equi[] is initial.

  select makt~matnr
         makt~maktx
         mara~ntgew
         mara~gewei
         mara~zzlkla
         mara~zzassp
         marc~stawn
  into table gt_material
  from makt
  join mara ON mara~matnr = makt~matnr
  join marc ON marc~matnr = makt~matnr          
  for all entries in i_equi
  where makt~matnr = i_equi-matnr
     and makt~spras = 'DE
     and marc~werks = '20'.

  sort gt_material by matnr.
endform.                    " READ_MATERAIL

*&---------------------------------------------------------------------*
*&      Form  wb
*&---------------------------------------------------------------------*
form wb.

  clear:   i_equi, gt_material.
  refresh: wb, wb2.

  loop at i_equi.

    if i_equi-equnr(1) ne 'W'.
      shift i_equi-equnr by 8 places.
    endif.

    read table gt_material with key matnr = i_equi-matnr binary search.

    move:  i_equi-equnr to wb-equnr,
           i_equi-matnr to wb-matnr,
           gt_material-maktx to wb-maktx,
           gt_material-ntgew to wb-ntgew,
           gt_material-gewei to wb-gewei,
           gt_material-stawn to wb-stawn.

    if gt_material-zzlkla ne ''.
      move i_mara-zzlkla to wb-zzlkla.
    else.
      move i_mara-zzassp to wb-zzlkla.
    endif.

    append wb.

    move wb-ntgew to gewi.

    concatenate wb-equnr
                wb-matnr
                wb-maktx
                gewi
                wb-gewei
                wb-stawn
                wb-zzlkla
           into wb2 separated by '|'.

    append wb2.

    clear:   i_equi, i_mara, i_makt, wb, wb2.
  endloop.

  loop at wb2.
    write: / wb2-datxt.
  endloop.
endform.                    " wb

Code: Alles auswählen.

  SELECT makt~matnr
         makt~maktx
         mara~ntgew
         mara~gewei
         mara~zzlkla
         mara~zzassp
         marc~stawn
  INTO TABLE gt_material
  FROM makt
  JOIN mara ON mara~matnr = makt~matnr
  JOIN marc ON marc~matnr = makt~matnr
  FOR ALL entries IN i_equi
  WHERE makt~matnr = i_equi-matnr
     AND makt~spras = 'DE'
     AND marc~werks = '20'.

Code: Alles auswählen.

  SELECT makt~matnr 
         makt~maktx 
         mara~ntgew 
         mara~gewei 
         mara~zzlkla 
         mara~zzassp 
         marc~stawn 
  INTO TABLE gt_material 
  FROM mara 
  JOIN makt ON mara~matnr = makt~matnr 
  LEFT JOIN marc 
         ON marc~matnr = makt~matnr 
        AND marc~werks = '20'       
  FOR ALL entries IN i_equi 
  WHERE mara~matnr = i_equi-matnr 
    AND makt~spras = 'DE'.