[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}