Code: Alles auswählen.
FORM eina-mara.
IF eina-matnr NE space OR fc_vorga EQ civ_ia.
PERFORM material_pruefen USING eina-matnr eine-werks.
IF eine-werks EQ space AND mt06e-bsext EQ space.
MESSAGE w308 WITH eina-matnr.
ENDIF.
rm06i-mein2 = mt06e-meins. "fuer Bild 102 Amortisation
eina-matkl = mt06e-matkl. "Laginfo: Matkl nicht in EINA gespeichert
PERFORM klassentext USING mt06e-matkl.
steukz1 = lager. "Lagerinfo-Steuerung
ELSE. "kein Material bzw. NLAG-Infonummer angegeben
CLEAR mt06e-maktx.
steukz1 = nlag. "Nichtlagerinfo-Steuerung
ENDIF.
ENDFORM. "EINA-MARA
Code: Alles auswählen.
* reset fields which will not be saved
IF steukz1 = lager.
CLEAR eina-matkl. "Materialklasse
IF mt06e-bwtty NE space AND t149-kzvbf NE space.
CLEAR eine-bwtar. "Bewertungsart, wenn verbindlicher Vorschlag
ENDIF.
ENDIF.
Code: Alles auswählen.
EINA-MATKL = 'TEST'.