Hi Rahul,
Thank you for your reply.
It might work, but before I tried it, I found out that I can solve the problem by making these event subscriptions:
[EventSubscriber(ObjectType::Table, Database::"Record Link", 'OnBeforeModifyEvent', '', false, false)]
local procedure OnBeforeModifyEvent(var Rec: Record "Record Link"; var xRec: Record "Record Link"; RunTrigger: Boolean)
begin
if Rec."Record ID".TableNo() = Database::"my table" then begin
Message('Modify is not allowed...');
Rec.Note := xRec.Note; // undo the change
end;
end;
[EventSubscriber(ObjectType::Table, Database::"Record Link", 'OnBeforeInsertEvent', '', false, false)]
local procedure OnBeforeInsertEvent(var Rec: Record "Record Link"; RunTrigger: Boolean)
begin
if Rec."Record ID".TableNo() = Database::"my table" then begin
Message('New note/link is not allowed...');
end;
end;
[EventSubscriber(ObjectType::Table, Database::"Record Link", 'OnBeforeDeleteEvent', '', false, false)]
local procedure OnBeforeDeleteEvent(var Rec: Record "Record Link"; RunTrigger: Boolean)
begin
if Rec."Record ID".TableNo() = Database::"my table" then begin
Message('Delete is not allowed...');
Error('Delete is not allowed...'); // This error message is never shown, but it prevents the record from being deleted
end;
end;
Once again, thank you for your time.
Best regards,
Morten
