bcquality/microsoft/knowledge/error-handling/fielderror-default-message-logic.good.al

table 50120 "FieldError Default Good"
{
    fields
    {
        field(1; "No."; Code[20]) { }
        field(2; "Discount %"; Decimal) { }
        field(3; "Currency Code"; Code[10]) { }
    }

    procedure ValidateForRelease()
    begin
        // TestField checks this required-field condition and raises the error
        // with caption and record context supplied by the framework.
        TestField("Currency Code");

        // Condition already evaluated: pass only a lowercase predicate so it
        // reads as one sentence after the auto-inserted caption and value.
        if "Discount %" > 100 then
            FieldError("Discount %", 'cannot exceed 100');
    end;
}