tableextension 50000 "Purchase Header RA" extends "Purchase Header"
{
fields
{
field(50000; "Need Approval"; Boolean)
{
Caption = 'Need Approval';
InitValue = true;
DataClassification = CustomerContent;
}
}
}
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Purch.-Get Receipt", OnAfterCreateInvLines, '', false, false)]
local procedure OnAfterCreateInvLines(var PurchaseHeader: Record "Purchase Header"; var PurchaseLine: Record "Purchase Line")
begin
PurchaseHeader."Need Approval" := false;
PurchaseHeader.Modify(false);
end;
André Arnaud de Cal...
292,234
Super User 2025 Season 1
Martin Dráb
230,994
Most Valuable Professional
nmaenpaa
101,156