I have added field on sale prices (7002)
[EventSubscriber(ObjectType::Table, Database::"Sales Line", 'OnAfterValidateEvent', 'No.', true, true)] local procedure MinChangedAllowed(var Rec: Record "Sales Line"; var xRec: Record "Sales Line") var "Sales Price": Record "Sales Price"; salesHeader: record "Sales Header"; begin "Sales Price".SetRange("Item No.", Rec."No."); if "Sales Price".FindSet() then begin Rec."Min. Price Change Allowed" := "Sales Price"."Min. Price Change Allw"; end; if "Sales Price"."Unit Price" < Rec."Min. Price Change Allowed" then salesHeader."Min. Price Change Hold" := true else salesHeader."Min. Price Change Hold" := false; end;