[Event Requet] Table 225 "Post Code".LookupPostCode

[fridrichovsky]

Why do you need this change?

We have custom fields in table and we need use them during lookup.

Describe the request

procedure LookupPostCode(var CityTxt: Text; var PostCode: Code[20]; var CountyTxt: Text; var CountryCode: Code[10])
    var
        PostCodeRec: Record "Post Code";
        PostCodes: Page "Post Codes";
        IsHandled: Boolean;
    begin
        IsHandled := false;
        OnBeforeLookupPostCode(CityTxt, PostCode, CountyTxt, CountryCode, IsHandled);
        if IsHandled then
            exit;

        if CountryCode <> '' then begin
            PostCodeRec.SetRange("Country/Region Code", CountryCode);
            PostCodes.SetTableView(PostCodeRec);
        end;

        if PostCodeRec.Get(PostCode, CityTxt) then
            PostCodes.SetRecord(PostCodeRec);

        PostCodes.LookupMode := true;
        if PostCodes.RunModal() = ACTION::LookupOK then begin
            PostCodes.GetRecord(PostCodeRec);
//-----------------------------------------OnLookupPostCodeOnAfterSelectPostCode:BEGIN
            OnLookupPostCodeOnAfterSelectPostCode(PostCodeRec);
//-----------------------------------------OnLookupPostCodeOnAfterSelectPostCode:END
            PostCode := PostCodeRec.Code;
            CityTxt := PostCodeRec.City;
            CountryCode := PostCodeRec."Country/Region Code";
            CountyTxt := PostCodeRec.County;
        end;
    end;

//-----------------------------------------OnLookupPostCodeOnAfterSelectPostCode:BEGIN
    [IntegrationEvent(false, false)]
    local procedure OnLookupPostCodeOnAfterSelectPostCode(var PostCodeRec: Record "Post Code")
    begin
    end;
//-----------------------------------------OnLookupPostCodeOnAfterSelectPostCode:END

Internal work item: AB#624643

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add OnLookupPostCodeOnAfterSelectPostCode integration event after the user selects a post code from the lookup page to allow accessing custom fields from the selected record.

In LookupPostCode procedure (around line 361):

procedure LookupPostCode(var CityTxt: Text; var PostCode: Code[20]; var CountyTxt: Text; var CountryCode: Code[10])
var
    PostCodeRec: Record "Post Code";
    PostCodes: Page "Post Codes";
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeLookupPostCode(CityTxt, PostCode, CountyTxt, CountryCode, IsHandled);
    if IsHandled then
        exit;

    if CountryCode <> '' then begin
        PostCodeRec.SetRange("Country/Region Code", CountryCode);
        PostCodes.SetTableView(PostCodeRec);
    end;

    if PostCodeRec.Get(PostCode, CityTxt) then
        PostCodes.SetRecord(PostCodeRec);

    PostCodes.LookupMode := true;
    if PostCodes.RunModal() = ACTION::LookupOK then begin
        PostCodes.GetRecord(PostCodeRec);
        OnLookupPostCodeOnAfterSelectPostCode(PostCodeRec);
        PostCode := PostCodeRec.Code;
        CityTxt := PostCodeRec.City;
        CountryCode := PostCodeRec."Country/Region Code";
        CountyTxt := PostCodeRec.County;
    end;
end;

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

[IntegrationEvent(false, false)]
local procedure OnLookupPostCodeOnAfterSelectPostCode(var PostCodeRec: Record "Post Code")
begin
end;

---

File: PostCode.Table.al

[JesperSchulz]

Thanks for reporting this. We agree, and we’ll publish a fix asap, either in an update for the current version or in the next major release. Please do not reply to this, as we do not monitor closed issues. If you have follow-up questions or requests, please create a new issue where you reference this one.

Build ID: 47589.