Hallo zusammen
Ich fange erst mit ABAP zu programmieren an, leider habe ich gewisse Schwierigkeiten mit einer einfachen Listenausgabe. Das Programm funktioniert zwar einwandfrei, aber die Struktur kann mit sicherheit verbessert werden. Da ich leider keine Möglichkeit habe um mein Programmm korrigieren zu lassen stelle ich es nun hier ins Forum. Ich bin über jede Rückmeldung dankbar.
Vielen Dank
Report ZR_ZAPROS.
Tables: mara,
marc,
mard,
mbew,
makt,
mver.
DATA: Preis(12),
Verbrauch(6).
SELECT-OPTIONS Material FOR mara-matnr.
SELECT-OPTIONS Gejahr FOR mver-gjahr.
PARAMETERS Sprache type makt-spras OBLIGATORY.
SELECT * FROM MARA CLIENT SPECIFIED
WHERE MANDT = sy-mandt
AND MATNR in Material.
SELECT * FROM MARC CLIENT SPECIFIED
WHERE MANDT = sy-mandt
AND MATNR = mara-matnr.
ENDSELECT.
SELECT * FROM MARD CLIENT SPECIFIED
WHERE MANDT = sy-mandt
AND MATNR = mara-matnr.
ENDSELECT.
SELECT * FROM MBEW CLIENT SPECIFIED
WHERE MANDT = sy-mandt
AND MATNR = mara-matnr.
ENDSELECT.
SELECT * FROM MAKT CLIENT SPECIFIED
WHERE MANDT = sy-mandt
AND MATNR = mara-matnr
AND SPRAS = Sprache.
ENDSELECT.
SELECT * FROM MVER CLIENT SPECIFIED
WHERE MANDT = sy-mandt
AND MATNR = makt-matnr
AND GJAHR in Gejahr.
ENDSELECT.
*--------------------------------------------------------------------*
*Wenn-Funktion Standart-Gleitenderpreis*
*--------------------------------------------------------------------*
CASE MBEW-VPRSV.
WHEN 'S'.
Preis = MBEW-STPRS.
WHEN 'V'.
Preis = MBEW-VERPR.
WHEN OTHERS.
Preis = '---'.
ENDCASE.
*Verbräuche berechnen*
Verbrauch =
MVER-GSV01 + MVER-GSV02 + MVER-GSV03 + MVER-GSV04 + MVER-GSV05 +
MVER-GSV06 + MVER-GSV07 + MVER-GSV08 + MVER-GSV09 + MVER-GSV10 +
MVER-GSV11 + MVER-GSV12 + MVER-GSV13.
*Ausgabe*
WRITE: / MARA-MATNR,
25 MAKT-MAKTX,
70 MARA-MATKL,
76 MARA-PRDHA,
82 MARC-EKGRP,
86 MARC-DISPO,
90 MARC-BESKZ,
92 MARC-SOBSL,
96 MARD-LGPBE,
106 MBEW-VPRSV,
110 Preis,
125 MARC-NCOST,
142 MBEW-HRKFT,
148 MBEW-EKALR,
150 MARC-LOSGR,
156 Gejahr,
165 Verbrauch.
ENDSELECT.