IF thisform.mutatiebestand == "v_criteria" THEN
    DO CASE
    CASE EMPTY(v_criteria.crt_naam)
        THISFORM.SaveError = "Het veld Criteria mag niet leeg blijven"
    OTHERWISE

        laMaxpnt[1] = 0
        laPunten[1] = 0
        lnLstPk = lijst.lst_pk
        SELECT SUM(criteria.crt_u);
        FROM criteria;
        INTO ARRAY laPunten

        SELECT vst_aantal;
        FROM vast;
        WHERE vst_pk = 1;
        INTO ARRAY laMaxpnt

        IF laPunten[1] > laMaxpnt[1] THEN
            THISFORM.SaveError = "Te veel punten toegekend"
        ENDIF
    ENDCASE
ENDIF