[Event Request] Table 5050 Contact - OnBeforeCreateCustomer

[JJulesJJagers]

Why do you need this change?

In 4PS Construct we need to be able to create a customer based on a contact when there is no customer template at all.

Describe the request

Dear ALAppExtensions team,

On behalf of 4PS I would like to request integration event 'OnBeforeCreateCustomer' to be added to procedure CreateCustomer in table 5050 Contact.

    //procedure CreateCustomer(): Code[20]; // old
    procedure CreateCustomer() CustomerNo: Code[20]; // new
    var
        CustomerTempl: Record "Customer Templ.";
        CustomerTemplMgt: Codeunit "Customer Templ. Mgt.";
        IsHandled: Boolean; //new
    begin
        OnBeforeCreateCustomer(Rec, CustomerNo, IsHandled); //new
        if IsHandled then //new
            exit; //new

        if CustomerTemplMgt.SelectCustomerTemplateFromContact(CustomerTempl, Rec) then
            exit(CreateCustomerFromTemplate(CustomerTempl.Code))
        else
            if CustomerTemplMgt.TemplatesAreNotEmpty() then
                exit;
    end;

    [IntegrationEvent(false, false)]
    local procedure OnBeforeCreateCustomer(var Contact: Record Contact; var CustomerNo: Code[20]; var IsHandled: Boolean)
    begin
        //new
    end;

Internal work item: AB#612784

[AleksandricMarko]

Hello @JJulesJJagers

Please be aware that recently we announced that for every new IsHandled event request, author need to provide a response to several question (please check link)

We want to be sure that IsHandled event is the only option, as this kind of events is not the best approach due to several reasons (codebase harder to maintain, harder refactoring, fragile solutions, easily break other implementations...)

Please also check the explanation about when and how to use IsHandled events (link)

For particular scenario maybe you can use existing OnBeforeSelectCustomerTemplateFromContact to set dummy template and after OnBeforeCreateCustomerFromTemplate to create Customer

[JJulesJJagers]

Hello @AleksandricMarko ,

Thanks for your response. Sorry for my late response.

The solution that you proposed will be a complicated solution. For the vendor we had a similar issue and that is fixed by #28941. I handled this issue the same as the vendor.

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event OnBeforeCreateCustomer in the CreateCustomer() procedure of Table 5050 "Contact" to allow extensions to handle customer creation when no customer template is available.

Location in CreateCustomer() procedure (around line 1520):

procedure CreateCustomer() CustomerNo: Code[20];
var
    CustomerTempl: Record "Customer Templ.";
    CustomerTemplMgt: Codeunit "Customer Templ. Mgt.";
    IsHandled: Boolean;
begin
    OnBeforeCreateCustomer(Rec, CustomerNo, IsHandled);
    if IsHandled then
        exit;

    if CustomerTemplMgt.SelectCustomerTemplateFromContact(CustomerTempl, Rec) then
        exit(CreateCustomerFromTemplate(CustomerTempl.Code))
    else
        if CustomerTemplMgt.TemplatesAreNotEmpty() then
            exit;
end;

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

[IntegrationEvent(false, false)]
local procedure OnBeforeCreateCustomer(var Contact: Record Contact; var CustomerNo: Code[20]; var IsHandled: Boolean)
begin
end;

---

File: Contact.Table.al

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