[Event Requet] Table 381 "VAT Registration No. Format".CheckContact

[fridrichovsky]

Why do you need this change?

We need option change filters before findset because we use filter over custom fields.

Describe the request

Potřebujeme přidat event před findset tabulky kontaktu pro nastavení vlastního security filteru.


{code:java}
    local procedure CheckContact(VATRegNo: Text[20]; Number: Code[20])
    var
        Cont: Record Contact;
        Check: Boolean;
        Finish: Boolean;
        TextString: Text;
        IsHandled: Boolean;
    begin
        IsHandled := false;
        OnBeforeCheckContact(VATRegNo, Number, IsHandled);
        if IsHandled then
            exit;

        Check := true;
        TextString := '';
        Cont.SetCurrentKey("VAT Registration No.");
        Cont.SetRange("VAT Registration No.", VATRegNo);
        Cont.SetFilter("No.", '<>%1', Number);
//-----------------------------------------OnCheckContactOnBeforeContactFindSet:BEGIN
        OnCheckContactOnBeforeContactFindSet(Cont);
//-----------------------------------------OnCheckContactOnBeforeContactFindSet:END
        if Cont.FindSet() then begin
            Check := false;
            Finish := false;
            repeat
                AppendString(TextString, Finish, Cont."No.");
            until (Cont.Next() = 0) or Finish;
        end;
        OnCheckContactOnBeforeCheck(VATRegNo, Number, TextString, Check);
        if not Check then
            Message(StrSubstNo(Text004, TextString));
    end;

//-----------------------------------------OnCheckContactOnBeforeContactFindSet:BEGIN
    [IntegrationEvent(false, false)]
    local procedure OnCheckContactOnBeforeContactFindSet(var Contact: Record Contact)
    begin
    end;
//-----------------------------------------OnCheckContactOnBeforeContactFindSet:END
{code}

Internal work item: AB#624642

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add OnCheckContactOnBeforeContactFindSet integration event before FindSet() to allow custom security filters on Contact records. This aligns with the existing pattern in CheckCust and CheckVendor procedures.

In CheckContact procedure (around line 248):

local procedure CheckContact(VATRegNo: Text[20]; Number: Code[20])
var
    Cont: Record Contact;
    Check: Boolean;
    Finish: Boolean;
    TextString: Text;
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeCheckContact(VATRegNo, Number, IsHandled);
    if IsHandled then
        exit;

    Check := true;
    TextString := '';
    Cont.SetCurrentKey("VAT Registration No.");
    Cont.SetRange("VAT Registration No.", VATRegNo);
    Cont.SetFilter("No.", '<>%1', Number);
    OnCheckContactOnBeforeContactFindSet(Cont);
    if Cont.FindSet() then begin
        Check := false;
        Finish := false;
        repeat
            AppendString(TextString, Finish, Cont."No.");
        until (Cont.Next() = 0) or Finish;
    end;
    OnCheckContactOnBeforeCheck(VATRegNo, Number, TextString, Check);
    if not Check then
        Message(StrSubstNo(Text004, TextString));
end;

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

/// <summary>
/// Integration event raised before contact record filtering for VAT registration number duplicate checking.
/// Allows subscribers to modify filters or add custom security filters on the Contact record.
/// </summary>
/// <param name="Contact">Contact record with applied filters for validation</param>
[IntegrationEvent(false, false)]
local procedure OnCheckContactOnBeforeContactFindSet(var Contact: Record Contact)
begin
end;

---

File: VATRegistrationNoFormat.Table.al