[Event Change Request] Codeunit 11401 "Post Code Management" - OnBeforeFindStreetNameFromAddress

[KateDovgalova]

Why do you need this change?

In 4PS Construct we need to read the incoming values and write the result fields of procedure FindStreetName when subscribing to OnBeforeFindStreetNameFromAddress event in codeunit 11401 "Post Code Management" - otherwise it's not possible to supply an alternative result.

Describe the request

Dear ALAppExtensions team,

On behalf of 4PS I would like to request integration event 'OnBeforeFindStreetNameFromAddress' to be changed in procedure FindStreetName of codeunit 11401 "Post Code Management".

    procedure FindStreetName(var Address: Text[100]; var Address2: Text[50]; var PostCode: Code[20]; var City: Text[30]; var CountryCode: Code[10]; var PhoneNo: Text[30]; var FaxNo: Text[30])
    var
        NewAddress: Text[100];
        NewStreetname: Text[50];
        NewHouseNo: Text[50];
        NewPostCode: Code[20];
        NewCity: Text[50];
        NewPhoneNo: Text[30];
        NewFaxNo: Text[30];
        IsHandled: Boolean;
    begin
        IsHandled := false;
        //OnBeforeFindStreetNameFromAddress(IsHandled); //old
        OnBeforeFindStreetNameFromAddress(Address, Address2, PostCode, City, CountryCode, PhoneNo, FaxNo, IsHandled); //new
        if IsHandled then
            exit;

    [IntegrationEvent(false, false)]
    //local procedure OnBeforeFindStreetNameFromAddress(var IsHandled: Boolean) //old
    local procedure OnBeforeFindStreetNameFromAddress(var Address: Text[100]; var Address2: Text[50]; var PostCode: Code[20]; var City: Text[30]; var CountryCode: Code[10]; var PhoneNo: Text[30]; var FaxNo: Text[30]; var IsHandled: Boolean) //new
    begin
    end;

Internal work item: AB#636301

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add parameters to the existing OnBeforeFindStreetNameFromAddress integration event in the FindStreetName procedure of Codeunit 11401 "Post Code Management" to expose address fields to subscribers.

Location in FindStreetName procedure (around line 45):

IsHandled := false;
OnBeforeFindStreetNameFromAddress(Address, Address2, PostCode, City, CountryCode, PhoneNo, FaxNo, IsHandled);
if IsHandled then
    exit;

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

[IntegrationEvent(false, false)]
local procedure OnBeforeFindStreetNameFromAddress(var Address: Text[100]; var Address2: Text[50]; var PostCode: Code[20]; var City: Text[30]; var CountryCode: Code[10]; var PhoneNo: Text[30]; var FaxNo: Text[30]; var IsHandled: Boolean)
begin
end;

---

File: PostCodeManagement.Codeunit.al