DEF VAR dMarge  as dec  decimals 4  no-undo.
FOR EACH Artst NO-LOCK
        WHERE Artst.Firma = '1000':
    FOR EACH ArtPreis
            WHERE ArtPreis.Firma  = Artst.Firma
            AND   ArtPreis.Artnr  = Artst.Artnr
            AND   ArtPreis.Inhalt = Artst.Inhalt
            AND   ArtPreis.Jahr   = Artst.Jahr:
        dMarge = 100 - (Artst.Listen_EP * 100 / ArtPreis.VK_Netto).
        if dmarge = ArtPreis.Marge then next.
        ArtPreis.Marge = dMarge.
    END.
END.