Skip to content

Suppress AL0432 obsolete warnings for AllObj."Object Name" field #8117

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

Open
SBalslev wants to merge 2 commits into
base: main
Choose a base branch
from
Open

Suppress AL0432 obsolete warnings for AllObj."Object Name" field #8117

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
b6893a6
Suppress AL0432 obsolete warnings for AllObj."Object Name" field
SBalslev May 12, 2026
8e93832
Trigger CI rerun
SBalslev May 13, 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
6 changes: 6 additions & 0 deletions src/System Application/App/Permission Sets/src/PermissionImpl.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -213,7 +213,9 @@ codeunit 9864 "Permission Impl."
ObjectCaption := TenantPermission."Object Name";
ObjectName := '';
if AllObj.Get(TenantPermission."Object Type", TenantPermission."Object ID") then
#pragma warning disable AL0432
Comment thread
SBalslev marked this conversation as resolved.
ObjectName := AllObj."Object Name";
#pragma warning restore AL0432
end else begin
ObjectName := CopyStr(StrSubstNo(AllObjTxt, TenantPermission."Object Type"), 1, MaxStrLen(TenantPermission."Object Name"));
ObjectCaption := ObjectName;
Expand All @@ -229,7 +231,9 @@ codeunit 9864 "Permission Impl."
ObjectCaption := MetadataPermission."Object Name";
ObjectName := '';
if AllObj.Get(MetadataPermission."Object Type", MetadataPermission."Object ID") then
#pragma warning disable AL0432
ObjectName := AllObj."Object Name";
#pragma warning restore AL0432
end else begin
ObjectName := CopyStr(StrSubstNo(AllObjTxt, MetadataPermission."Object Type"), 1, MaxStrLen(MetadataPermission."Object Name"));
ObjectCaption := ObjectName;
Expand All @@ -245,7 +249,9 @@ codeunit 9864 "Permission Impl."
ObjectCaption := ExpandedPermission."Object Name";
ObjectName := '';
if AllObj.Get(ExpandedPermission."Object Type", ExpandedPermission."Object ID") then
#pragma warning disable AL0432
ObjectName := AllObj."Object Name";
#pragma warning restore AL0432
end else begin
ObjectName := CopyStr(StrSubstNo(AllObjExceptTxt, ExpandedPermission."Object Type"), 1, MaxStrLen(ExpandedPermission."Object Name"));
ObjectCaption := ObjectName;
Expand Down
8 changes: 8 additions & 0 deletions ...p/Retention Policy/src/Retention Policy Allowed Tables/RetenPolAllowedTblImpl.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -83,9 +83,11 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl."
UnbindSubscription(RetenPolAllowedTblImpl);

if TableAllowed then
#pragma warning disable AL0432
Comment thread
SBalslev marked this conversation as resolved.
Comment thread
SBalslev marked this conversation as resolved.
RetentionPolicyLog.LogInfo(LogCategory(), StrSubstNo(AllowedTablesModifiedLbl, RetentionPolicyAllowedTable."Table Id", AllObj."Object Name", RetentionPolicyAllowedTable."Default Date Field No."))
else
RetentionPolicyLog.LogError(LogCategory(), StrSubstNo(FailedModifyingTableLbl, RetentionPolicyAllowedTable."Table Id", AllObj."Object Name"), false);
#pragma warning restore AL0432

exit(TableAllowed);
end;
Expand All @@ -95,9 +97,11 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl."
UnbindSubscription(RetenPolAllowedTblImpl);

if TableAllowed then
#pragma warning disable AL0432
RetentionPolicyLog.LogInfo(LogCategory(), StrSubstNo(AddTableToAllowedTablesLbl, RetentionPolicyAllowedTable."Table Id", AllObj."Object Name", RetentionPolicyAllowedTable."Default Date Field No."))
else
RetentionPolicyLog.LogError(LogCategory(), StrSubstNo(FailedAddingTableLbl, RetentionPolicyAllowedTable."Table Id", AllObj."Object Name"), false);
#pragma warning restore AL0432

exit(TableAllowed)
end;
Expand All @@ -121,15 +125,19 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl."
PublishedApplication.SetRange("Version Revision", CallerModuleInfo.AppVersion.Revision);
PublishedApplication.SetFilter("Tenant ID", '%1|%2', '', TenantInformation.GetTenantId());
if not PublishedApplication.FindFirst() then begin
#pragma warning disable AL0432
RetentionPolicyLog.LogWarning(LogCategory(), StrSubstNo(ModuleDoesNotExistLbl, TableId, AllObj."Object Name", CallerModuleInfo.Id));
#pragma warning restore AL0432
exit(false);
end;

if (TableId > 2000000000) and IsAppAllowListed(PublishedApplication.ID) then
exit(true);

if AllObj."App Runtime Package ID" <> PublishedApplication."Runtime Package ID" then begin
#pragma warning disable AL0432
RetentionPolicyLog.LogWarning(LogCategory(), StrSubstNo(WrongModuleOwnerLbl, TableId, AllObj."Object Name", CallerModuleInfo.Id));
#pragma warning restore AL0432
exit(false);
end;

Expand Down
4 changes: 4 additions & 0 deletions src/System Application/App/Web Service Management/src/WebServiceManagementImpl.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -54,7 +54,9 @@ codeunit 9751 "Web Service Management Impl."
WebServiceName: Text;
begin
AllObj.Get(ObjectType, ObjectId);
#pragma warning disable AL0432
Comment thread
SBalslev marked this conversation as resolved.
WebServiceName := GetWebServiceName(ObjectName, AllObj."Object Name");
#pragma warning restore AL0432

if WebService.Get(ObjectType, WebServiceName) then begin
ModifyWebService(WebService, AllObj, WebServiceName, Published);
Expand All @@ -73,7 +75,9 @@ codeunit 9751 "Web Service Management Impl."
WebServiceName: Text;
begin
AllObj.Get(ObjectType, ObjectId);
#pragma warning disable AL0432
WebServiceName := GetWebServiceName(ObjectName, AllObj."Object Name");
#pragma warning restore AL0432

if TenantWebService.Get(ObjectType, WebServiceName) then begin
ModifyTenantWebService(TenantWebService, AllObj, WebServiceName, Published);
Expand Down
2 changes: 2 additions & 0 deletions src/Tools/Test Framework/Test Runner/src/TestSuiteMgt.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -171,7 +171,9 @@ codeunit 130456 "Test Suite Mgt."
AllObj.SetRange("Object ID", CodeunitTestMethodLine."Test Codeunit");
AllObj.SetRange("Object Type", AllObj."Object Type"::Codeunit);
if AllObj.FindFirst() then begin
#pragma warning disable AL0432
Comment thread
SBalslev marked this conversation as resolved.
CodeunitResultJson.Add('codeunitName', AllObj."Object Name");
#pragma warning restore AL0432
NavInstalledApp.SetRange("Package ID", AllObj."App Package ID");
if NavInstalledApp.FindFirst() then begin
CodeunitResultJson.Add('applicationID', NavInstalledApp."App ID");
Expand Down
Loading