[Event Request] codeunit 4810 IntrastatReportManagement - GetVATRegNo

[GTLarsen]

Why do you need this change?

I have an issue where customers Vat Reg No have been validated with the "Verify VAT Registration No" on the VAT Registration Log on the customer card.
If they have entered the Country/Region Code and VAT Registration No. with the same prefix.
Eg: BE for Country and BExxxxxxxxx
It validates as a valid Vat Reg No.

The problem arrives when i run the "Sugges Lines" on the page 4812 "Intrastat Report".
It calculates the Vat Reg No as
BEBExxxxxxxxx on the lines because of my enum setting in the InfraStatReportSetup (IntrastatReportSetup."Company VAT No. on File"::"EU Country Code + VAT Reg. No")

Therefore it generates invalid Intrastat Lines in the table: Intrastat Report Line (4812) on the field: Partner VAT ID.
(Duplicate Country Code).

Alternatives Evaluated:
Subscribing to OnAfterInsertEvent on table "Intrastat Report Line" feels like a workaround because you are modifying persisted data instead of catching the "errors" before.

Justification for IsHandled:
Standard logic ends with exit(CountryCode + VATRegNo). An event without IsHandled would not allow me to exit the code before introducing the buggy concatenation of duplicate countrycodes.

Performance Considerations:
The action "Suggest Lines" is something you run pretty rarely and the subscriber logic would be a simple string operation with the O-notation of O(1).

Data Sensitivity Review:
VatRegs are public stuff and it doesn't modify what is already exposed, so it is not a concern here.

Multi-Extension Interaction:
Unlikely to be targeted by more than one extension. You could create another event without isHandled called OnAfterGetVATRegNo for more flexibility if you as a partner needs to do something that doesn't need to exit the standard flow.

Describe the request

[IntegrationEvent(false, false)] local procedure OnBeforeGetVATRegNo(CountryCode: Code[10]; VATRegNo: Text[20]; VATRegNoType: Enum "Intrastat Report VAT File Fmt"; var IsHandled: Boolean) begin //new end;
Internal work item: AB#635857

[AleksandricMarko]

Hi Philip Larsen (@GTLarsen),

Thanks for submitting this extensibility request. To help us process it efficiently, please update the issue to include the required information.

📚 Extensibility Guidelines

Missing Information:

• Alternatives Evaluated: Please describe which existing events or extension patterns you already evaluated and why they do not solve this scenario.
• Justification for IsHandled: Please explain why bypassing the standard GetVATRegNo logic is necessary and why a regular event without IsHandled would not be sufficient.
• Performance Considerations: Please state the expected execution frequency and expected performance impact of the subscriber logic.
• Data Sensitivity Review: Please confirm whether any sensitive data is involved or exposed by this request.
• Multi-Extension Interaction: Please describe whether you expect conflicts if multiple extensions subscribe and how that risk should be handled.

Please update the issue with the missing details. We'll automatically re-analyze once updated.

[GTLarsen]

Marko Aleksandric (@AleksandricMarko) Thanks, i have updated the request :)

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event OnBeforeGetVATRegNo at the beginning of the GetVATRegNo procedure in Codeunit 4810 "IntrastatReportManagement", allowing subscribers to override the return value and exit before standard logic executes.

Location in GetVATRegNo procedure (line 400):

procedure GetVATRegNo(CountryCode: Code[10]; VATRegNo: Text[20]; VATRegNoType: Enum "Intrastat Report VAT File Fmt") Result: Text[50]
var
    IntrastatReportSetup: Record "Intrastat Report Setup";
    CountryRegion: Record "Country/Region";
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeGetVATRegNo(CountryCode, VATRegNo, VATRegNoType, Result, IsHandled);
    if IsHandled then
        exit(Result);

    case VATRegNoType of
        IntrastatReportSetup."Company VAT No. on File"::"VAT Reg. No.":
            exit(VATRegNo);
        IntrastatReportSetup."Company VAT No. on File"::"EU Country Code + VAT Reg. No":
            begin
                CountryRegion.Get(CountryCode);
                if CountryRegion."EU Country/Region Code" <> '' then
                    CountryCode := CountryRegion."EU Country/Region Code";
                exit(CountryCode + VATRegNo);
            end;
        IntrastatReportSetup."Company VAT No. on File"::"VAT Reg. No. Without EU Country Code":
            begin
                CountryRegion.Get(CountryCode);
                if CountryRegion."EU Country/Region Code" <> '' then
                    CountryCode := CountryRegion."EU Country/Region Code";
                if CopyStr(VATRegNo, 1, StrLen(DelChr(CountryCode, '<>'))) =
                   DelChr(CountryCode, '<>')
                then
                    exit(CopyStr(VATRegNo, StrLen(DelChr(CountryCode, '<>')) + 1, 50));
                exit(VATRegNo);
            end;
    end;
end;

Event Publisher (add at the end of the codeunit with other events):

[IntegrationEvent(false, false)]
local procedure OnBeforeGetVATRegNo(CountryCode: Code[10]; VATRegNo: Text[20]; VATRegNoType: Enum "Intrastat Report VAT File Fmt"; var Result: Text[50]; var IsHandled: Boolean)
begin
end;

---

File: IntrastatReportManagement.Codeunit.al