/* ---------------------------------------------------------------------- */
/* INCLUDE-Datei fuer Fehlermeldung                                       */
/* ---------------------------------------------------------------------- */

    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 ERROR.
/*
    RETURN NO-APPLY.
*/