[Event Request] [CZ] Codeunit 11755 "Registration Log Mgt. CZL"

[kamilvysmek]

Why do you need this change?

We need new event for application customization.

Describe the request

Please add new event into this codeunit :

codeunit 11755 "Registration Log Mgt. CZL"
.
.
.
procedure LogVerification(var NewRegistrationLogCZL: Record "Registration Log CZL"; ResponseObject: JsonObject)
.
.
// Address information
if GetValue(ResponseObject, AddressKeyTok, AddressObject) then begin
// Country Code
if GetValue(AddressObject, CountryCodeKeyTok, Value) then
NewRegistrationLogCZL."Verified Country/Region Code" :=
CopyStr(Value, 1, MaxStrLen(NewRegistrationLogCZL."Verified Country/Region Code"));

        // City
        if GetValue(AddressObject, CityKeyTok, Value) then
            NewRegistrationLogCZL."Verified City" :=
                CopyStr(Value, 1, MaxStrLen(NewRegistrationLogCZL."Verified City"));

        // Post Code
        if GetValue(AddressObject, PostCodeKeyTok, Value) then
            NewRegistrationLogCZL."Verified Post Code" :=
                FormatPostCode(CopyStr(Value, 1, MaxStrLen(NewRegistrationLogCZL."Verified Post Code")));

        if GetValue(AddressObject, StreetKeyTok, Value) then
            Address[1] := Value;  // Street
        if GetValue(AddressObject, QuarterKeyTok, Value) then
            Address[2] := Value;  // Quarter
        if GetValue(AddressObject, HouseNoKeyTok, Value) then
            Address[3] := Value;  // House No.
        if GetValue(AddressObject, OrientationNoKeyTok, Value) then
            Address[4] := Value;  // Orientation No.
        if GetValue(AddressObject, OrientationNoLetterKeyTok, Value) then
            Address[5] := Value;  // Orientation No. Letter
        if GetValue(AddressObject, AddressTextKeyTok, Value) then
            AddressText := Value;  // Address Text
    end;

 NewRegistrationLogCZL."Verified Address" := CopyStr(FormatAddress(Address), 1, MaxStrLen(NewRegistrationLogCZL."Verified Address"));

//------------------------------------------------------------OnLogVerificationOnAfterFormatAddress :BEGIN
OnLogVerificationOnAfterFormatAddress(NewRegistrationLogCZL, Address);
//------------------------------------------------------------OnLogVerificationOnAfterFormatAddress :END

    if NewRegistrationLogCZL."Verified Address" = '' then
        NewRegistrationLogCZL."Verified Address" := CopyStr(AddressText, 1, MaxStrLen(NewRegistrationLogCZL."Verified Address"));
    NewRegistrationLogCZL.Insert(true);

.
.
//------------------------------------------------------------OnLogVerificationOnAfterFormatAddress :BEGIN
[IntegrationEvent(false, false)]
local procedure OnLogVerificationOnAfterFormatAddress(var RegistrationLogCZL: Record "Registration Log CZL"; Address: array[10] of Text;)
begin
end;
//------------------------------------------------------------OnLogVerificationOnAfterFormatAddress :END

Internal work item: AB#608815

[DavidHolusa]

Hi kamilvysmek. The similar event was already added there as you can see in code below (event OnLogVerificationOnAfterSetDataFromAddressObject). Is that sufficient for you?

            ...
            if GetValue(AddressObject, StreetKeyTok, Value) then
                Address[1] := Value;  // Street
            if GetValue(AddressObject, QuarterKeyTok, Value) then
                Address[2] := Value;  // Quarter
            if GetValue(AddressObject, HouseNoKeyTok, Value) then
                Address[3] := Value;  // House No.
            if GetValue(AddressObject, OrientationNoKeyTok, Value) then
                Address[4] := Value;  // Orientation No.
            if GetValue(AddressObject, OrientationNoLetterKeyTok, Value) then
                Address[5] := Value;  // Orientation No. Letter
            if GetValue(AddressObject, AddressTextKeyTok, Value) then
                AddressText := Value;  // Address Text

            OnLogVerificationOnAfterSetDataFromAddressObject(AddressObject, NewRegistrationLogCZL);
        end;

        NewRegistrationLogCZL."Verified Address" := CopyStr(FormatAddress(Address), 1, MaxStrLen(NewRegistrationLogCZL."Verified Address"));
        if NewRegistrationLogCZL."Verified Address" = '' then
            NewRegistrationLogCZL."Verified Address" := CopyStr(AddressText, 1, MaxStrLen(NewRegistrationLogCZL."Verified Address"));
        NewRegistrationLogCZL.Insert(true);
        ...

[kamilvysmek]

Hi David Holuša (@DavidHolusa). Unfortunately not. We need new event as I described to fill our new fields from Address variable after first filling of "Verified Address" field.

[DavidHolusa]

Hi kamilvysmek. So the following should be sufficient, right?

NewRegistrationLogCZL."Verified Address" := CopyStr(FormatAddress(Address), 1, MaxStrLen(NewRegistrationLogCZL."Verified Address"));
if NewRegistrationLogCZL."Verified Address" = '' then
    NewRegistrationLogCZL."Verified Address" := CopyStr(AddressText, 1, MaxStrLen(NewRegistrationLogCZL."Verified Address"));
OnLogVerificationOnBeforeInsertRegistrationLogCZL(NewRegistrationLogCZL, ResponseObject, Address, AddressText);
NewRegistrationLogCZL.Insert(true);

[kamilvysmek]

Hi David Holuša (@DavidHolusa). Yes, it is sufficient, thank you.

[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: 40690.