[Event Request] Codeunit 7030 "Campaign Target Group Mgt" - OnBeforeConverttoContact

[KlaasKleermaker]

Why do you need this change?

In 4PS Construct we need to be able to call CampaignTargetGr2.ChangeCompany() and CampaignTargetGr.ChangeCompany() at the beginning of procedure ConverttoContact().

Describe the request

Dear ALAppExtensions team,

On behalf of 4PS I would like to request integration event 'OnBeforeConverttoContact' to be added to procedure ConverttoContact in codeunit 7030 "Campaign Target Group Mgt".

    procedure ConverttoContact(Cust: Record Customer; CompanyContNo: Code[20])
    var
        CampaignTargetGr2: Record "Campaign Target Group";
    begin
        OnBeforeConverttoContact(CampaignTargetGr, CampaignTargetGr2); //new

        CampaignTargetGr2.SetRange("No.", Cust."No.");
        if CampaignTargetGr2.Find('-') then
            repeat
                InsertTargetGroup(
                  CampaignTargetGr2.Type::Contact, CompanyContNo, CampaignTargetGr2."Campaign No.");
                CampaignTargetGr2.Delete();
            until CampaignTargetGr2.Next() = 0;
    end;

    [IntegrationEvent(false, false)]
    local procedure OnBeforeConverttoContact(var CampaignTargetGr: Record "Campaign Target Group"; var CampaignTargetGr2: Record "Campaign Target Group")
    begin
        //new
    end;

Internal work item: AB#626517

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event at the beginning of the ConverttoContact() procedure of Codeunit 7030 Campaign Target Group Mgt before the target-group filtering starts.

Location in ConverttoContact() procedure (around line 241):

procedure ConverttoContact(Cust: Record Customer; CompanyContNo: Code[20])
var
    CampaignTargetGr2: Record "Campaign Target Group";
begin
    OnBeforeConverttoContact(CampaignTargetGr, CampaignTargetGr2);

    CampaignTargetGr2.SetRange("No.", Cust."No.");
    if CampaignTargetGr2.Find('-') then
        repeat
            InsertTargetGroup(
              CampaignTargetGr2.Type::Contact, CompanyContNo, CampaignTargetGr2."Campaign No.");
            CampaignTargetGr2.Delete();
        until CampaignTargetGr2.Next() = 0;
end;

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

[IntegrationEvent(false, false)]
local procedure OnBeforeConverttoContact(var CampaignTargetGroup: Record "Campaign Target Group"; var CampaignTargetGroup2: Record "Campaign Target Group")
begin
end;

---

File: CampaignTargetGroupMgt.Codeunit.al