[Event Request] Codeunit 11756 "Registration No. Mgt. CZL".CheckDuplicity

[fridrichovsky]

Why do you need this change?

Please add new event that we need for change securityfiltering. Customer use filtering, but it genereate unwanted error in this function. Because duplicity have to be over all records we need change securityfiltering. This change we need for Vendors, Contacts and Customers it is reason why we ask for event in this position.

Describe the request

local procedure CheckDuplicity(RegNo: Text[20]; Number: Code[20]; TableID: Option; IsTax: Boolean)
begin
    //-----------------------------OnBeforeCheckDuplicity:BEGIN
    OnBeforeCheckDuplicity(Customer, Vendor, Contact);
    //-----------------------------OnBeforeCheckDuplicity:END
    case TableID of
        DataBase::Customer:
            CheckCustomerDuplicity(RegNo, Number, IsTax);
        DataBase::Vendor:
            CheckVendorDuplicity(RegNo, Number, IsTax);
        DataBase::Contact:
            CheckContactDuplicity(RegNo, Number, IsTax);
    end;
end;

//-----------------------------OnBeforeCheckDuplicity:BEGIN
[IntegrationEvent(false, false)]
local procedure OnBeforeCheckDuplicity(var Customer: Record "Customer"; var Vendor: Record "Vendor"; var Contact: Record "Contact")
begin
end;
//-----------------------------OnBeforeCheckDuplicity:END

Internal work item: AB#626053

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add the OnBeforeCheckDuplicity integration event at the beginning of the CheckDuplicity procedure in codeunit 11756 "Registration No. Mgt. CZL", before the case statement.

Location in CheckDuplicity procedure (around line 38):

local procedure CheckDuplicity(RegNo: Text[20]; Number: Code[20]; TableID: Option; IsTax: Boolean)
begin
    OnBeforeCheckDuplicity(Customer, Vendor, Contact);  // <-- New event
    
    case TableID of
        DataBase::Customer:
            CheckCustomerDuplicity(RegNo, Number, IsTax);
        DataBase::Vendor:
            CheckVendorDuplicity(RegNo, Number, IsTax);
        DataBase::Contact:
            CheckContactDuplicity(RegNo, Number, IsTax);
    end;
end;

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

/// <summary>
/// Integration event raised before checking registration number duplicity.
/// Allows subscribers to modify security filtering on Customer, Vendor, and Contact records.
/// </summary>
/// <remarks>
/// This event fires before the case statement determines which duplicity check to execute,
/// enabling extensions to control which records are included in the registration number duplicity check.
/// Use this event to:
/// - Modify security filtering to ensure duplicity checks run over all records
/// - Apply custom filtering logic on Customer, Vendor, or Contact records
/// - Set up record context before duplicity validation
/// 
/// Note: This procedure is called from multiple public procedures (CheckRegistrationNo and CheckTaxRegistrationNo).
/// If you need your event subscriber to fire only in specific scenarios, consider using manual event
/// subscription binding.
/// </remarks>
/// <param name="Customer">Global Customer record variable used in CheckCustomerDuplicity.</param>
/// <param name="Vendor">Global Vendor record variable used in CheckVendorDuplicity.</param>
/// <param name="Contact">Global Contact record variable used in CheckContactDuplicity.</param>
[IntegrationEvent(false, false)]
local procedure OnBeforeCheckDuplicity(var Customer: Record Customer; var Vendor: Record Vendor; var Contact: Record Contact)
begin
end;

---

File: RegistrationNoMgtCZL.Codeunit.al