From db811871debb49d632d03da9bc0b0cc782987941 Mon Sep 17 00:00:00 2001 From: aalimov Date: Thu, 4 Jun 2026 09:54:35 +0200 Subject: [PATCH 1/3] added size limit to resolve AA0139 error --- .../src/WebServiceManagementImpl.Codeunit.al | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/System Application/App/Web Service Management/src/WebServiceManagementImpl.Codeunit.al b/src/System Application/App/Web Service Management/src/WebServiceManagementImpl.Codeunit.al index aa22919a60..12e19912e4 100644 --- a/src/System Application/App/Web Service Management/src/WebServiceManagementImpl.Codeunit.al +++ b/src/System Application/App/Web Service Management/src/WebServiceManagementImpl.Codeunit.al @@ -636,7 +636,7 @@ codeunit 9751 "Web Service Management Impl." TargetTenantWebServiceColumns.Validate("Data Item", DataItem); TargetTenantWebServiceColumns.Validate(Include, true); TargetTenantWebServiceColumns.Validate("Field Number", keyValuePair.Key()); - TargetTenantWebServiceColumns.Validate("Field Name", CopyStr(keyValuePair.Value(), 1)); + TargetTenantWebServiceColumns.Validate("Field Name", CopyStr(keyValuePair.Value(), 1, 250)); if TargetTenantWebServiceColumns.IsTemporary() then begin EntryId := EntryId + 1; TargetTenantWebServiceColumns."Entry ID" := EntryId; From 636e671a618097e64253928694f2c8057278b5b9 Mon Sep 17 00:00:00 2001 From: aalimov Date: Thu, 4 Jun 2026 10:18:35 +0200 Subject: [PATCH 2/3] added size limit to resolve AA0139 error --- .../src/WebServiceManagementImpl.Codeunit.al | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/System Application/App/Web Service Management/src/WebServiceManagementImpl.Codeunit.al b/src/System Application/App/Web Service Management/src/WebServiceManagementImpl.Codeunit.al index aa22919a60..12e19912e4 100644 --- a/src/System Application/App/Web Service Management/src/WebServiceManagementImpl.Codeunit.al +++ b/src/System Application/App/Web Service Management/src/WebServiceManagementImpl.Codeunit.al @@ -636,7 +636,7 @@ codeunit 9751 "Web Service Management Impl." TargetTenantWebServiceColumns.Validate("Data Item", DataItem); TargetTenantWebServiceColumns.Validate(Include, true); TargetTenantWebServiceColumns.Validate("Field Number", keyValuePair.Key()); - TargetTenantWebServiceColumns.Validate("Field Name", CopyStr(keyValuePair.Value(), 1)); + TargetTenantWebServiceColumns.Validate("Field Name", CopyStr(keyValuePair.Value(), 1, 250)); if TargetTenantWebServiceColumns.IsTemporary() then begin EntryId := EntryId + 1; TargetTenantWebServiceColumns."Entry ID" := EntryId; From dfbd9600b6bc665c499ae073f7deca87b4516700 Mon Sep 17 00:00:00 2001 From: aalimov Date: Thu, 4 Jun 2026 12:52:54 +0200 Subject: [PATCH 3/3] When compiler PR(8077) was merged, ruleset change was missed. Temporarily downgrading AA0139 --- src/rulesets/ruleset.json | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/rulesets/ruleset.json b/src/rulesets/ruleset.json index 76be3c7d11..9247fa9630 100644 --- a/src/rulesets/ruleset.json +++ b/src/rulesets/ruleset.json @@ -44,6 +44,11 @@ "action": "None", "justification": "TODO(#572306) - (see PTE0026) This will require a multi-release effort." }, + { + "id": "AA0139", + "action": "Warning", + "justification": "TODO(#637029) - Temporarily downgraded, due to stricter CodeCop rule addition." + }, { "id": "AS0139", "action": "None",