[W1] [Event Request] table 5050 Contact - OnBeforeCreatePurchaseQuoteFromContact

[pri-kise]

Why do you need this change?

We would like to perform additional checks on the contact before the new document is created from the contact.

Describe the request

    procedure CreatePurchaseQuoteFromContact()
    var
        PurchaseHeader: Record "Purchase Header";
    begin
        //>>EVENT
        OnBeforeCreatePurchaseQuoteFromContact(Rec);
        //<<EVENT
        CheckIfPrivacyBlockedGeneric();

        PurchaseHeader.Init();
        PurchaseHeader.Validate("Document Type", PurchaseHeader."Document Type"::Quote);
        PurchaseHeader.Insert(true);
        PurchaseHeader.Validate("Document Date", WorkDate());
        PurchaseHeader.Validate("Buy-from Contact No.", "No.");
        PurchaseHeader.Modify();

        Page.Run(Page::"Purchase Quote", PurchaseHeader);
    end;

[IntegrationEvent(false, false)]
local procedure OnBeforeCreatePurchaseQuoteFromContact(var Contact: Record Contact)
begin
end;

Internal work item: AB#623958

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a regular IntegrationEvent at the beginning of the CreatePurchaseQuoteFromContact() procedure in table 5050 Contact.

Location in CreatePurchaseQuoteFromContact() procedure:

procedure CreatePurchaseQuoteFromContact()
var
    PurchaseHeader: Record "Purchase Header";
begin
    OnBeforeCreatePurchaseQuoteFromContact(Rec);  // <-- New event
    
    CheckIfPrivacyBlockedGeneric();

    PurchaseHeader.Init();
    PurchaseHeader.Validate("Document Type", PurchaseHeader."Document Type"::Quote);
    PurchaseHeader.Insert(true);
    PurchaseHeader.Validate("Document Date", WorkDate());
    PurchaseHeader.Validate("Buy-from Contact No.", "No.");
    PurchaseHeader.Modify();

    Page.Run(Page::"Purchase Quote", PurchaseHeader);
end;

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

[IntegrationEvent(false, false)]
local procedure OnBeforeCreatePurchaseQuoteFromContact(var Contact: Record Contact)
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: 47286.