/* ---------------------------------------------------------------------- */
/* INCLUDE-Datei fuer Abfrage, ob ein Datensatz geloescht werden soll     */
/* ---------------------------------------------------------------------- */

    Ja = FALSE.
    FIND Femeld USE-INDEX Femeld-k1
                WHERE Femeld.Sprcd = GVSprcd
                AND   Femeld.Fenr  = 1 NO-LOCK NO-ERROR.
                
    MESSAGE Femeld.Fetext
            VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO
    UPDATE Ja.