Add Service Participants support for Company Information

[Copilot]

Add Service Participants to Company Information

This PR enables Belgian companies using Peppol to configure Service Participants on Company Information, so that incoming eDocuments using Peppol Scheme 0208 (Enterprise Number) are correctly matched and received.

Changes Made

• 1. Extend E-Document Source Type Enum

  • Added "Company" value (value 3) to enum 6123 "E-Document Source Type"

• 2. Add Page Extension for Company Information

  • Created page extension 6165 for Company Information page
  • Added "E-Document Service Participation" field similar to Customer/Vendor extensions
  • Field shows count of Service Participants and drills down to the list
  • Uses empty string ('') as Participant code since Company Information is a singleton

• 3. Update Matching Logic (Backward Compatible)

  • Added new overload ValidateReceivingCompanyInfo(EDocument, EDocService) that checks Service Participants first
  • Preserved original ValidateReceivingCompanyInfo(EDocument) signature for backward compatibility
  • New overload calls the original method after Service Participant check
  • MatchCompanyByServiceParticipant takes EDocService record parameter
  • Updated call site in EDocImport to pass EDocService record
  • Priority order: Service Participant → VAT Reg No. → GLN → Name/Address

• 4. Add Tests

  • Added ValidateReceivingCompanyInfoWithMatchingServiceParticipant test: Verifies validation succeeds when a matching Company Service Participant exists
  • Added ValidateReceivingCompanyInfoFallsBackToVATWhenNoServiceParticipant test: Verifies fallback to VAT/GLN matching when no Service Participant matches

• 5. Fix Build Warnings/Errors

  • Fixed AA0175: Use IsEmpty() instead of FindFirst() when only checking record existence
  • Fixed AL0118: Added missing using Microsoft.eServices.EDocument.Integration; for Service Integration enum
  • Fixed test permissions: Added TestPermissions = Disabled; to allow E-Document table inserts during tests

---

✨ Let Copilot coding agent set things up for you — coding agent works faster and does higher quality work when set up for your repo.

[github-actions]

Could not find a linked ADO work item. Please link one by using the pattern 'AB#' followed by the relevant work item number. You may use the 'Fixes' keyword to automatically resolve the work item when the pull request is merged. E.g. 'Fixes AB#1234'

[Groenbech96]

@copilot Create a overload method that takes the service as argument and provides it on the table. Dont remove the filter after as well.

[Copilot]

@copilot Create a overload method that takes the service as argument and provides it on the table. Dont remove the filter after as well.

Done in 0e3a699. Created an overload MatchCompanyByServiceParticipant(EDocument, ServiceCode) that takes the service code as argument and removed the filter clearing logic.

[Groenbech96]

@copilot dont use EDocument.GetEDocumentService().Code)).

At the call site of check receiving company info, there is a known service. Use that one.

[Copilot]

@copilot dont use EDocument.GetEDocumentService().Code)).

At the call site of check receiving company info, there is a known service. Use that one.

Done in 3bb73af. Updated ValidateReceivingCompanyInfo to accept ServiceCode parameter and updated the call site in EDocImport.Codeunit.al to pass EDocService.Code directly. Removed the overload that was using GetEDocumentService().Code.

[Groenbech96]

@copilot Pass the record, not a code.

[Copilot]

Done in 9b0657f. Now passes the EDocService record instead of EDocService.Code.

[Groenbech96]

@copilot This is breaking. Please add an overload. Then call this original and do the new stuff before.

[Copilot]

Done in 9b0657f. Added backward-compatible overload ValidateReceivingCompanyInfo(EDocument, EDocService) that first checks Service Participants, then calls the original ValidateReceivingCompanyInfo(EDocument) method.

[Groenbech96]

@copilot Make sure you add tests.

[Groenbech96]

Build: ./src/Apps/W1/EDocument/App/src/Helpers/EDocumentImportHelper.Codeunit.al#L315
AA0175 Variable 'ServiceParticipant' queries the database in 'MatchCompanyByServiceParticipant' but does not use the queried record. Only find or get record if you need to access the values. Consider using ISEMPTY.

[Copilot]

Build: ./src/Apps/W1/EDocument/App/src/Helpers/EDocumentImportHelper.Codeunit.al#L315
AA0175 Variable 'ServiceParticipant...

Fixed in 2774d26. Changed FindFirst() to not IsEmpty() since we only need to check if a matching record exists.

[Groenbech96]

@copilot Take a look at the new instructions

[Copilot]

@copilot Take a look at the new instructions

Could you clarify what new instructions you're referring to? I don't see any additional instructions in the comments.

[Groenbech96]

@copilot revert my latest commit.

[Copilot]

@copilot revert my latest commit.

Done in 7d5b8fa. Reverted the AGENTS.md commit.

[Groenbech96]

@copilot

Build: ./src/Apps/W1/EDocument/Test/src/Receive/EDocHelperTest.Codeunit.al#L119AL0118 The name '"Service Integration"' does not exist in the current context. -- Build: ./src/Apps/W1/EDocument/Test/src/Receive/EDocHelperTest.Codeunit.al#L76AL0118 The name '"Service Integration"' does not exist in the current context. [Build: ./src/Apps/W1/EDocument/Test/src/Receive/EDocHelperTest.Codeunit.al#L119](https://github.com//pull/6372/files#annotation_44933495907) AL0118 The name '"Service Integration"' does not exist in the current context. [Build: ./src/Apps/W1/EDocument/Test/src/Receive/EDocHelperTest.Codeunit.al#L76](https://github.com//pull/6372/files#annotation_44933495917) AL0118 The name '"Service Integration"' does not exist in the current context.

[Copilot]

@copilot

...

Fixed in 33dda72. Added missing using Microsoft.eServices.EDocument.Integration; statement to resolve the Service Integration enum reference.

[Groenbech96]

@copilot

BuildUnexpected error when running action. Error Message: There are test failures!, StackTrace: at , C:\ProgramData\BcContainerHelper\6.1.11-preview2101285\BcContainerHelper\AppHandling\Run-AlPipeline.ps1: line 2994 <- at , C:\ProgramData\BcContainerHelper\6.1.11-preview2101285\BcContainerHelper\AppHandling\Run-AlPipeline.ps1: line 1285 <- at Run-AlPipeline, C:\ProgramData\BcContainerHelper\6.1.11-preview2101285\BcContainerHelper\AppHandling\Run-AlPipeline.ps1: line 1270 <- at , D:\a\_actions\microsoft\AL-Go\19a90088a40cf806eaeb0878ee9aa2438b400475\Actions\RunPipeline\RunPipeline.ps1: line 517 <- at , D:\a\_temp\d5d07c09-94a7-43bd-b0b4-bd17bdd890c2.ps1: line 3 <- at , D:\a\_actions\microsoft\AL-Go\19a90088a40cf806eaeb0878ee9aa2438b400475\Actions\Invoke-AlGoAction.ps1: line 21 <- at , D:\a\_temp\d5d07c09-94a7-43bd-b0b4-bd17bdd890c2.ps1: line 2 <- at , : line 1 -- BuildFunction ValidateReceivingCompanyInfoFallsBackToVATWhenNoServiceParticipant Sorry, the current permissions prevented the action. (TableData 6121 E-Document Insert: E-Document Core Tests) BuildFunction ValidateReceivingCompanyInfoWithMatchingServiceParticipant Sorry, the current permissions prevented the action. (TableData 6121 E-Document Insert: E-Document Core Tests) BuildFunction ValidateReceivingCompanyInfoFallsBackToVATWhenNoServiceParticipant Sorry, the current permissions prevented the action. (TableData 6121 E-Document Insert: E-Document Core Tests) BuildFunction ValidateReceivingCompanyInfoWithMatchingServiceParticipant Sorry, the current permissions prevented the action. (TableData 6121 E-Document Insert: E-Document Core Tests) [Build](https://github.com/microsoft/BCApps/actions/runs/21581698742/job/62354431996?pr=6372#annotation:10:6628) Unexpected error when running action. Error Message: There are test failures!, StackTrace: at , C:\ProgramData\BcContainerHelper\6.1.11-preview2101285\BcContainerHelper\AppHandling\Run-AlPipeline.ps1: line 2994 <- at , C:\ProgramData\BcContainerHelper\6.1.11-preview2101285\BcContainerHelper\AppHandling\Run-AlPipeline.ps1: line 1285 <- at Run-AlPipeline, C:\ProgramData\BcContainerHelper\6.1.11-preview2101285\BcContainerHelper\AppHandling\Run-AlPipeline.ps1: line 1270 <- at , D:\a\_actions\microsoft\AL-Go\19a90088a40cf806eaeb0878ee9aa2438b400475\Actions\RunPipeline\RunPipeline.ps1: line 517 <- at , D:\a\_temp\d5d07c09-94a7-43bd-b0b4-bd17bdd890c2.ps1: line 3 <- at , D:\a\_actions\microsoft\AL-Go\19a90088a40cf806eaeb0878ee9aa2438b400475\Actions\Invoke-AlGoAction.ps1: line 21 <- at , D:\a\_temp\d5d07c09-94a7-43bd-b0b4-bd17bdd890c2.ps1: line 2 <- at , : line 1 [Build](https://github.com/microsoft/BCApps/actions/runs/21581698742/job/62354431996?pr=6372#annotation:10:6266) Function ValidateReceivingCompanyInfoFallsBackToVATWhenNoServiceParticipant Sorry, the current permissions prevented the action. (TableData 6121 E-Document Insert: E-Document Core Tests) [Build](https://github.com/microsoft/BCApps/actions/runs/21581698742/job/62354431996?pr=6372#annotation:10:6254) Function ValidateReceivingCompanyInfoWithMatchingServiceParticipant Sorry, the current permissions prevented the action. (TableData 6121 E-Document Insert: E-Document Core Tests) [Build](https://github.com/microsoft/BCApps/actions/runs/21581698742/job/62354431996?pr=6372#annotation:10:6158) Function ValidateReceivingCompanyInfoFallsBackToVATWhenNoServiceParticipant Sorry, the current permissions prevented the action. (TableData 6121 E-Document Insert: E-Document Core Tests) [Build](https://github.com/microsoft/BCApps/actions/runs/21581698742/job/62354431996?pr=6372#annotation:10:6146) Function ValidateReceivingCompanyInfoWithMatchingServiceParticipant Sorry, the current permissions prevented the action. (TableData 6121 E-Document Insert: E-Document Core Tests)

[Copilot]

@copilot

...

Fixed in 611f6c6. Added TestPermissions = Disabled; to the test codeunit to allow E-Document table inserts during test execution.