From 1fc698e18c2c4315c7c76eb6297ec53b4811ee39 Mon Sep 17 00:00:00 2001 From: Denys Kuchuk Date: Tue, 16 Jun 2026 11:25:16 +0300 Subject: [PATCH 1/3] [W1][Codeunit][8900][Email Impl] IntegrationEvent --- .../App/Email/src/Email/EmailImpl.Codeunit.al | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al b/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al index e275ad0ac1..f8805a4688 100644 --- a/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al +++ b/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al @@ -746,7 +746,12 @@ codeunit 8900 "Email Impl" var AllObj: Record AllObj; SourceRecordRef: RecordRef; + Handled: Boolean; begin + OnBeforeFilterRemovedSourceRecords(EmailRelatedRecord, Handled); + if Handled then + exit; + repeat if AllObj.Get(AllObj."Object Type"::Table, EmailRelatedRecord."Table Id") then begin SourceRecordRef.Open(EmailRelatedRecord."Table Id"); @@ -1113,4 +1118,9 @@ codeunit 8900 "Email Impl" GlobalLanguage(CurrentLanguage); end; #endregion + + [IntegrationEvent(false, false)] + local procedure OnBeforeFilterRemovedSourceRecords(var EmailRelatedRecord: Record "Email Related Record"; var Handled: Boolean) + begin + end; } From 6d1b29379beff9e0a0baa2110b02fa1cd17d02b3 Mon Sep 17 00:00:00 2001 From: Denys Kuchuk Date: Mon, 22 Jun 2026 11:57:34 +0300 Subject: [PATCH 2/3] Issue 8635 fix. FilterRemovedSourceRecords fnctn --- .../App/Email/src/Email/EmailImpl.Codeunit.al | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al b/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al index f8805a4688..f9216c4f85 100644 --- a/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al +++ b/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al @@ -746,18 +746,12 @@ codeunit 8900 "Email Impl" var AllObj: Record AllObj; SourceRecordRef: RecordRef; - Handled: Boolean; begin - OnBeforeFilterRemovedSourceRecords(EmailRelatedRecord, Handled); - if Handled then - exit; - repeat if AllObj.Get(AllObj."Object Type"::Table, EmailRelatedRecord."Table Id") then begin SourceRecordRef.Open(EmailRelatedRecord."Table Id"); - if SourceRecordRef.ReadPermission() then - if SourceRecordRef.GetBySystemId(EmailRelatedRecord."System Id") then - EmailRelatedRecord.Mark(true); + if SourceRecordRef.GetBySystemId(EmailRelatedRecord."System Id") then + EmailRelatedRecord.Mark(true); SourceRecordRef.Close(); end; until EmailRelatedRecord.Next() = 0; From 825ebe01b1b3110c11db41ab6f03d46daa738ff1 Mon Sep 17 00:00:00 2001 From: Denys Kuchuk Date: Mon, 22 Jun 2026 12:00:23 +0300 Subject: [PATCH 3/3] not used event has been removed --- .../App/Email/src/Email/EmailImpl.Codeunit.al | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al b/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al index f9216c4f85..72f8f1ca30 100644 --- a/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al +++ b/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al @@ -1112,9 +1112,4 @@ codeunit 8900 "Email Impl" GlobalLanguage(CurrentLanguage); end; #endregion - - [IntegrationEvent(false, false)] - local procedure OnBeforeFilterRemovedSourceRecords(var EmailRelatedRecord: Record "Email Related Record"; var Handled: Boolean) - begin - end; }