FOR EACH AufLot
    WHERE AufLot.Firma = '1000':
    
    FIND Aufze OF Auflot NO-ERROR.
    IF AVAILABLE Aufze THEN DO:
        ASSIGN  AufLot.Inhalt = Aufze.Inhalt
                AufLot.Jahr   = Aufze.Jahr.
        NEXT.
    END.
    FIND Savze OF Auflot NO-ERROR.
    IF NOT AVAILABLE Savze THEN DO:
        DELETE  AufLot.
        NEXT.
    END.
    CREATE  SavLot.
    BUFFER-COPY AufLot
        TO      SavLot
        ASSIGN  SavLot.Inhalt = Savze.Inhalt
                SavLot.Jahr   = Savze.Jahr.
    DELETE  AufLot.
END.