Skip to content

Fix AA0237 violations to enable CodeCop rules AA0073 and AA0237 as errors #7410

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Draft
Copilot wants to merge 2 commits into
base: main
Choose a base branch
from
Draft

Fix AA0237 violations to enable CodeCop rules AA0073 and AA0237 as errors #7410

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
be27d27
Initial plan
Copilot Mar 26, 2026
7ddb57c
Fix AA0237 violations and enable rules AA0073 and AA0237 in CodeCop r…
Copilot Mar 26, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion src/System Application/App/Agent/Interaction/Internal/AgentTaskImpl.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -186,7 +186,7 @@ codeunit 4300 "Agent Task Impl."
[EventSubscriber(ObjectType::Codeunit, Codeunit::"System Action Triggers", GetPageSummary, '', true, true)]
local procedure OnGetGetPageSummary(PageId: Integer; Bookmark: Text; var Summary: Text)
var
TempPageSummaryParameters: Record "Page Summary Parameters";
TempPageSummaryParameters: Record "Page Summary Parameters" temporary;
PageSummaryProvider: Codeunit "Page Summary Provider";
begin
if PageId = 0 then begin
Expand Down
2 changes: 1 addition & 1 deletion src/System Application/App/Agent/Setup/AgentCard.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -253,7 +253,7 @@ page 4315 "Agent Card"
end;

var
TempUserSettingsRecord: Record "User Settings";
TempUserSettingsRecord: Record "User Settings" temporary;
Language: Codeunit Language;
ProfileDisplayName, CopilotAvailabilityTxt : Text;
ProfileChangedQst: Label 'Changing the agent''s profile may affect its accuracy and performance. It could also grant access to unexpected fields and actions.\\Do you want to continue?';
Expand Down
6 changes: 3 additions & 3 deletions src/System Application/App/Agent/Setup/AgentImpl.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -126,7 +126,7 @@ codeunit 4301 "Agent Impl."

local procedure SetProfile(Agent: Record Agent; var AllProfile: Record "All Profile")
var
TempUserSettingsRecord: Record "User Settings";
TempUserSettingsRecord: Record "User Settings" temporary;
UserSettings: Codeunit "User Settings";
begin
UserSettings.GetUserSettings(Agent."User Security ID", TempUserSettingsRecord);
Expand All @@ -147,7 +147,7 @@ codeunit 4301 "Agent Impl."
procedure UpdateLocalizationSettings(AgentUserSecurityID: Guid; var NewUserSettingsRec: Record "User Settings")
var
Agent: Record Agent;
TempUserSettingsRecord: Record "User Settings";
TempUserSettingsRecord: Record "User Settings" temporary;
UserSettings: Codeunit "User Settings";
begin
GetAgent(Agent, AgentUserSecurityID);
Expand Down Expand Up @@ -176,7 +176,7 @@ codeunit 4301 "Agent Impl."
local procedure AssignCompany(AgentUserSecurityID: Guid; CompanyName: Text)
var
Agent: Record Agent;
TempUserSettingsRecord: Record "User Settings";
TempUserSettingsRecord: Record "User Settings" temporary;
UserSettings: Codeunit "User Settings";
begin
GetAgent(Agent, AgentUserSecurityID);
Expand Down
2 changes: 1 addition & 1 deletion src/System Application/App/Agent/Setup/SetupPart/AgentSetupBuffer.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -190,7 +190,7 @@ table 4310 "Agent Setup Buffer"

internal procedure GetUserSettings(var TempNewUserSetting: Record "User Settings" temporary)
var
TempFetchedUserSettings: Record "User Settings";
TempFetchedUserSettings: Record "User Settings" temporary;
Agent: Codeunit Agent;
begin
if not TempUserSettings.FindFirst() then begin
Expand Down
10 changes: 5 additions & 5 deletions src/System Application/App/Agent/Setup/SetupPart/AgentSetupImpl.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -138,7 +138,7 @@ codeunit 4325 "Agent Setup Impl."
local procedure UpdateFields(var AgentSetupBuffer: Record "Agent Setup Buffer"; UserSecurityID: Guid; AgentMetadataProvider: Enum "Agent Metadata Provider"; DefaultUserName: Code[50]; DefaultDisplayName: Text[80])
var
Agent: Record Agent;
TempUserSettings: Record "User Settings";
TempUserSettings: Record "User Settings" temporary;
Language: Codeunit Language;
AgentMetadata: Interface IAgentMetadata;
begin
Expand Down Expand Up @@ -166,7 +166,7 @@ codeunit 4325 "Agent Setup Impl."
[Scope('OnPrem')]
procedure OpenLanguageAndRegionPage(var AgentSetupBuffer: Record "Agent Setup Buffer"): Boolean
var
TempUserSettings: Record "User Settings";
TempUserSettings: Record "User Settings" temporary;
Language: Codeunit Language;
AgentUserSettings: Page "Agent User Settings";
begin
Expand Down Expand Up @@ -209,7 +209,7 @@ codeunit 4325 "Agent Setup Impl."

internal procedure AppendAgentSummary(var AgentSetupBuffer: Record "Agent Setup Buffer"; SummaryText: Text): Text
var
TempUserSettings: Record "User Settings";
TempUserSettings: Record "User Settings" temporary;
Language: Codeunit Language;
NewSummaryText: Text;
begin
Expand Down Expand Up @@ -240,7 +240,7 @@ codeunit 4325 "Agent Setup Impl."
local procedure CreateAgent(var AgentSetupBuffer: Record "Agent Setup Buffer"): Guid
var
AgentRecord: Record Agent;
TempNewUserSettings: Record "User Settings";
TempNewUserSettings: Record "User Settings" temporary;
TemporaryAgentAccessControl: Record "Agent Access Control" temporary;
Agent: Codeunit Agent;
begin
Expand All @@ -257,7 +257,7 @@ codeunit 4325 "Agent Setup Impl."
local procedure UpdateAgent(var AgentSetupBuffer: Record "Agent Setup Buffer")
var
AgentRecord: Record Agent;
TempNewUserSettings: Record "User Settings";
TempNewUserSettings: Record "User Settings" temporary;
TemporaryAgentAccessControl: Record "Agent Access Control" temporary;
Agent: Codeunit Agent;
begin
Expand Down
2 changes: 1 addition & 1 deletion src/System Application/App/AppSource Gallery/src/AppSourceProductList.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -199,7 +199,7 @@ page 2515 "AppSource Product List"

local procedure ReloadAllProducts()
var
TempAppSourceProduct: Record "AppSource Product";
TempAppSourceProduct: Record "AppSource Product" temporary;
begin
TempAppSourceProduct.Copy(Rec);
AppSourceProductManager.GetProductsAndPopulateRecord(TempAppSourceProduct);
Expand Down
2 changes: 1 addition & 1 deletion src/System Application/App/Azure AD User Management/src/AzureADUserMgmtImpl.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -272,7 +272,7 @@ codeunit 9017 "Azure AD User Mgmt. Impl."
var
AccessControl: Record "Access Control";
TempAccessControlWithDefaultPermissions: Record "Access Control" temporary;
TempPermissionSetInPlanBuffer: Record "Permission Set In Plan Buffer";
TempPermissionSetInPlanBuffer: Record "Permission Set In Plan Buffer" temporary;
PlanConfiguration: Codeunit "Plan Configuration";
UsersInPlans: Query "Users in Plans";
begin
Expand Down
2 changes: 1 addition & 1 deletion ...tem Application/App/Azure Storage Services Authorization/src/StorServAuthImpl.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,7 @@ codeunit 9063 "Stor. Serv. Auth. Impl."

procedure CreateSAS(SigningKey: SecretText; SignedVersion: Enum "Storage Service API Version"; SignedServices: List of [Enum "SAS Service Type"]; SignedResources: List of [Enum "SAS Resource Type"]; SignedPermissions: List of [Enum "SAS Permission"]; SignedExpiry: DateTime): Interface "Storage Service Authorization"
var
TempOptionalParams: Record "SAS Parameters";
TempOptionalParams: Record "SAS Parameters" temporary;
begin
TempOptionalParams.Init();
exit(CreateSAS(SigningKey, SignedVersion, SignedServices, SignedResources, SignedPermissions, SignedExpiry, TempOptionalParams));
Expand Down
2 changes: 1 addition & 1 deletion ...stem Application/App/Barcode/src/Dynamics Barcode Provider/Dynamics2DProvider.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -30,7 +30,7 @@ codeunit 9223 "Dynamics 2D Provider" implements "Barcode Image Provider 2D"

procedure EncodeImage(InputText: Text; BarcodeSymbology2D: Enum "Barcode Symbology 2D"): Codeunit "Temp Blob"
var
TempBarcodeEncodeSettings2D: Record "Barcode Encode Settings 2D";
TempBarcodeEncodeSettings2D: Record "Barcode Encode Settings 2D" temporary;
begin
TempBarcodeEncodeSettings2D.Init();
exit(EncodeImage(InputText, BarcodeSymbology2D, TempBarcodeEncodeSettings2D));
Expand Down
4 changes: 2 additions & 2 deletions ...m Application/App/Barcode/src/IDAutomation 1D Provider/IDAutomation1DProvider.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -29,7 +29,7 @@ codeunit 9215 "IDAutomation 1D Provider" implements "Barcode Font Provider"

procedure EncodeFont(InputText: Text; Encoder: Enum "Barcode Symbology"): Text;
var
TempBarcodeEncodeSettings: Record "Barcode Encode Settings";
TempBarcodeEncodeSettings: Record "Barcode Encode Settings" temporary;
begin
exit(EncodeFont(InputText, Encoder, TempBarcodeEncodeSettings));
end;
Expand All @@ -46,7 +46,7 @@ codeunit 9215 "IDAutomation 1D Provider" implements "Barcode Font Provider"

procedure ValidateInput(InputText: Text; BarcodeSymbology: Enum "Barcode Symbology")
var
TempBarcodeEncodeSettings: Record "Barcode Encode Settings";
TempBarcodeEncodeSettings: Record "Barcode Encode Settings" temporary;
begin
ValidateInput(InputText, BarcodeSymbology, TempBarcodeEncodeSettings);
end;
Expand Down
12 changes: 6 additions & 6 deletions src/System Application/App/Email/src/Account/EmailAccountImpl.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,7 @@ codeunit 8889 "Email Account Impl."

procedure GetAllAccounts(LoadLogos: Boolean; var TempEmailAccount: Record "Email Account" temporary)
var
TempEmailAccounts: Record "Email Account";
TempEmailAccounts: Record "Email Account" temporary;
Connector: Enum "Email Connector";
EmailConnector: Interface "Email Connector";
begin
Expand Down Expand Up @@ -66,7 +66,7 @@ codeunit 8889 "Email Account Impl."
[InherentPermissions(PermissionObjectType::TableData, Database::"Email Rate Limit", 'rd')]
procedure DeleteAccounts(var EmailAccountsToDelete: Record "Email Account"; HideDialog: Boolean)
var
TempCurrentDefaultEmailAccount: Record "Email Account";
TempCurrentDefaultEmailAccount: Record "Email Account" temporary;
EmailRateLimitToDelete: Record "Email Rate Limit";
ConfirmManagement: Codeunit "Confirm Management";
EmailScenario: Codeunit "Email Scenario";
Expand Down Expand Up @@ -104,8 +104,8 @@ codeunit 8889 "Email Account Impl."

local procedure HandleDefaultAccountDeletion(CurrentDefaultAccountId: Guid; Connector: Enum "Email Connector"; HideDialog: Boolean)
var
TempAllEmailAccounts: Record "Email Account";
TempNewDefaultEmailAccount: Record "Email Account";
TempAllEmailAccounts: Record "Email Account" temporary;
TempNewDefaultEmailAccount: Record "Email Account" temporary;
EmailScenario: Codeunit "Email Scenario";
NewDefaultEmailAccountSelected: Boolean;
begin
Expand Down Expand Up @@ -176,7 +176,7 @@ codeunit 8889 "Email Account Impl."

procedure IsAnyAccountRegistered(): Boolean
var
TempEmailAccount: Record "Email Account";
TempEmailAccount: Record "Email Account" temporary;
begin
GetAllAccounts(false, TempEmailAccount);

Expand All @@ -185,7 +185,7 @@ codeunit 8889 "Email Account Impl."

procedure IsAccountRegistered(EmailAccountId: Guid; EmailConnector: Enum "Email Connector"): Boolean
var
TempEmailAccount: Record "Email Account";
TempEmailAccount: Record "Email Account" temporary;
begin
if IsNullGuid(EmailAccountId) then
exit(false);
Expand Down
4 changes: 2 additions & 2 deletions src/System Application/App/Email/src/Account/EmailAccountWizard.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -419,7 +419,7 @@ page 8886 "Email Account Wizard"

trigger OnInit()
var
TempDefaultAccount: Record "Email Account";
TempDefaultAccount: Record "Email Account" temporary;
EmailAccountImpl: Codeunit "Email Account Impl.";
EmailScenario: Codeunit "Email Scenario";
begin
Expand Down Expand Up @@ -576,7 +576,7 @@ page 8886 "Email Account Wizard"
end;

var
TempRegisteredAccount: Record "Email Account";
TempRegisteredAccount: Record "Email Account" temporary;
RegisteredRateLimit: Record "Email Rate Limit";
MediaResourcesStandard: Record "Media Resources";
MediaResourcesDone: Record "Media Resources";
Expand Down
2 changes: 1 addition & 1 deletion src/System Application/App/Email/src/Account/EmailAccounts.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -579,7 +579,7 @@ page 8887 "Email Accounts"
end;

var
TempDefaultEmailAccount: Record "Email Account";
TempDefaultEmailAccount: Record "Email Account" temporary;
EmailAccountImpl: Codeunit "Email Account Impl.";
EmailRateLimitImpl: Codeunit "Email Rate Limit Impl.";
IsDefault: Boolean;
Expand Down
2 changes: 1 addition & 1 deletion ...ystem Application/App/Email/src/Email/EmailAttachmens/EmailScenarioAttachImpl.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -90,7 +90,7 @@ codeunit 8902 "Email Scenario Attach Impl."

procedure AddAttachmentToMessage(var Message: Codeunit "Email Message"; CurrentEmailScenario: Enum "Email Scenario")
var
TempEmailAttachments: Record "Email Attachments";
TempEmailAttachments: Record "Email Attachments" temporary;
AttachmentsCount: Integer;
begin
if CurrentEmailScenario.AsInteger() <> 0 then begin
Expand Down
2 changes: 1 addition & 1 deletion src/System Application/App/Email/src/Email/EmailAttachmens/EmailScenarioAttachSetup.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -104,7 +104,7 @@ page 8897 "Email Scenario Attach Setup"
trigger OnAction()
var
EmailScenarioAttachments: Record "Email Scenario Attachments";
TempSelectedScenarios: Record "Email Account Scenario";
TempSelectedScenarios: Record "Email Account Scenario" temporary;
FeatureTelemetry: Codeunit "Feature Telemetry";
ScenariosForAccount: Page "Email Scenarios for Account";
begin
Expand Down
14 changes: 7 additions & 7 deletions src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -77,7 +77,7 @@ codeunit 8900 "Email Impl"

procedure SaveAsDraft(EmailMessage: Codeunit "Email Message"; EmailAccountId: Guid; EmailConnector: Enum "Email Connector"; var EmailOutbox: Record "Email Outbox")
var
TempEmailAccountRecord: Record "Email Account";
TempEmailAccountRecord: Record "Email Account" temporary;
EmailMessageImpl: Codeunit "Email Message Impl.";
begin
if not EmailMessageImpl.Get(EmailMessage.GetId()) then
Expand All @@ -93,7 +93,7 @@ codeunit 8900 "Email Impl"

procedure Enqueue(EmailMessage: Codeunit "Email Message"; EmailScenario: Enum "Email Scenario"; NotBefore: DateTime)
var
TempEmailAccount: Record "Email Account";
TempEmailAccount: Record "Email Account" temporary;
EmailScenarios: Codeunit "Email Scenario";
begin
EmailScenarios.GetEmailAccount(EmailScenario, TempEmailAccount);
Expand All @@ -110,7 +110,7 @@ codeunit 8900 "Email Impl"

procedure Send(EmailMessage: Codeunit "Email Message"; EmailScenario: Enum "Email Scenario"): Boolean
var
TempEmailAccount: Record "Email Account";
TempEmailAccount: Record "Email Account" temporary;
EmailScenarios: Codeunit "Email Scenario";
begin
EmailScenarios.GetEmailAccount(EmailScenario, TempEmailAccount);
Expand Down Expand Up @@ -156,7 +156,7 @@ codeunit 8900 "Email Impl"

procedure Reply(EmailMessage: Codeunit "Email Message"; EmailAccountId: Guid; EmailConnector: Enum "Email Connector"; var EmailOutbox: Record "Email Outbox"; NotBefore: DateTime; InBackground: Boolean; ReplyToAll: Boolean): Boolean
var
TempEmailAccountRec: Record "Email Account";
TempEmailAccountRec: Record "Email Account" temporary;
CurrentUser: Record User;
Email: Codeunit Email;
EmailDispatcher: Codeunit "Email Dispatcher";
Expand Down Expand Up @@ -208,7 +208,7 @@ codeunit 8900 "Email Impl"

procedure RetrieveEmails(EmailAccountId: Guid; Connector: Enum "Email Connector"; var EmailInbox: Record "Email Inbox")
var
TempFilters: Record "Email Retrieval Filters";
TempFilters: Record "Email Retrieval Filters" temporary;
begin
TempFilters.Insert();
RetrieveEmails(EmailAccountId, Connector, EmailInbox, TempFilters);
Expand Down Expand Up @@ -453,7 +453,7 @@ codeunit 8900 "Email Impl"

procedure OpenInEditor(EmailMessage: Codeunit "Email Message"; EmailScenario: Enum "Email Scenario"; IsModal: Boolean): Enum "Email Action"
var
TempEmailAccount: Record "Email Account";
TempEmailAccount: Record "Email Account" temporary;
EmailScenarios: Codeunit "Email Scenario";
begin
EmailScenarios.GetEmailAccount(EmailScenario, TempEmailAccount);
Expand Down Expand Up @@ -546,7 +546,7 @@ codeunit 8900 "Email Impl"

local procedure Send(EmailMessage: Codeunit "Email Message"; EmailAccountId: Guid; EmailConnector: Enum "Email Connector"; InBackground: Boolean; NotBefore: DateTime; var EmailOutbox: Record "Email Outbox"): Boolean
var
TempEmailAccountRec: Record "Email Account";
TempEmailAccountRec: Record "Email Account" temporary;
CurrentUser: Record User;
Email: Codeunit Email;
EmailMessageImpl: Codeunit "Email Message Impl.";
Expand Down
8 changes: 4 additions & 4 deletions src/System Application/App/Email/src/Email/Outbox/EmailEditor.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -126,7 +126,7 @@ codeunit 8906 "Email Editor"

procedure CreateOutbox(var EmailOutbox: Record "Email Outbox")
var
TempDefaultEmailAccount: Record "Email Account";
TempDefaultEmailAccount: Record "Email Account" temporary;
EmailScenario: Codeunit "Email Scenario";
begin
EmailOutbox."User Security Id" := UserSecurityId();
Expand Down Expand Up @@ -281,7 +281,7 @@ codeunit 8906 "Email Editor"

procedure AttachFromRelatedRecords(EmailMessageID: Guid);
var
TempEmailRelatedAttachment: Record "Email Related Attachment";
TempEmailRelatedAttachment: Record "Email Related Attachment" temporary;
Email: Codeunit Email;
EmailRelatedAttachmentsPage: Page "Email Related Attachments";
begin
Expand Down Expand Up @@ -416,7 +416,7 @@ codeunit 8906 "Email Editor"

procedure LookupRecipients(MessageID: Guid; var Text: Text): Boolean
var
TempSuggestedEmailAddressLookup: Record "Email Address Lookup";
TempSuggestedEmailAddressLookup: Record "Email Address Lookup" temporary;
EmailRelatedRecord: Record "Email Related Record";
EmailAddressLookup: Codeunit "Email Address Lookup";
EmailAddressLookupPage: Page "Email Address Lookup";
Expand Down Expand Up @@ -499,7 +499,7 @@ codeunit 8906 "Email Editor"
internal procedure PopulateRelatedRecordCache(MessageID: Guid)
var
EmailRelatedRecord: Record "Email Related Record";
TempEmailAddressLookupRecord: Record "Email Address Lookup";
TempEmailAddressLookupRecord: Record "Email Address Lookup" temporary;
EmailAddressLookup: Codeunit "Email Address Lookup";
begin
EmailRelatedRecord.SetFilter("Email Message Id", MessageID);
Expand Down
2 changes: 1 addition & 1 deletion src/System Application/App/Email/src/Email/Sent/EmailViewer.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -227,7 +227,7 @@ page 12 "Email Viewer"
end;

var
TempEmailAccount: Record "Email Account";
TempEmailAccount: Record "Email Account" temporary;
EmailMessageImpl: Codeunit "Email Message Impl.";
EmailViewer: Codeunit "Email Viewer";
EmailImpl: Codeunit "Email Impl";
Expand Down
2 changes: 1 addition & 1 deletion src/System Application/App/Email/src/Lookup/EmailAddressLookup.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -109,7 +109,7 @@ page 8944 "Email Address Lookup"

protected procedure LookupFullAddressList(EmailAddressEntity: Enum "Email Address Entity")
var
TempEmailAddressLookup: Record "Email Address Lookup";
TempEmailAddressLookup: Record "Email Address Lookup" temporary;
EmailAddressLookupImpl: Codeunit "Email Address Lookup Impl";
begin
if EmailAddressLookupImpl.LookupEmailAddress(EmailAddressEntity, TempEmailAddressLookup) then begin
Expand Down
2 changes: 1 addition & 1 deletion src/System Application/App/Email/src/Lookup/EmailAddressLookupImpl.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -24,7 +24,7 @@ codeunit 8944 "Email Address Lookup Impl"

procedure LookupEmailAddress(Entity: Enum "Email Address Entity"; var EmailAddressLookupRec: Record "Email Address Lookup"): Boolean
var
TempEmailAddressLookupSuggestions: Record "Email Address Lookup";
TempEmailAddressLookupSuggestions: Record "Email Address Lookup" temporary;
EmailAddressLookup: Codeunit "Email Address Lookup";
IsHandled: Boolean;
begin
Expand Down
2 changes: 1 addition & 1 deletion src/System Application/App/Email/src/Message/EmailAttachments.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -84,7 +84,7 @@ page 8889 "Email Attachments"

trigger OnAction()
var
TempEmailAttachments: Record "Email Attachments";
TempEmailAttachments: Record "Email Attachments" temporary;
FeatureTelemetry: Codeunit "Feature Telemetry";
EmailChooseScenarioAttachments: Page "Email Choose Scenario Attach";
begin
Expand Down
2 changes: 1 addition & 1 deletion src/System Application/App/Email/src/Message/EmailMessageImpl.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -619,7 +619,7 @@ codeunit 8905 "Email Message Impl."

procedure GetRelatedAttachments(EmailMessageId: Guid; var EmailRelatedAttachmentOut: Record "Email Related Attachment"): Boolean
var
TempEmailRelatedAttachment: Record "Email Related Attachment";
TempEmailRelatedAttachment: Record "Email Related Attachment" temporary;
EmailRelatedRecord: Record "Email Related Record";
Email: Codeunit Email;
EmailImpl: Codeunit "Email Impl";
Expand Down
Loading
Loading