[Event Request] Table 39 "Purchase Line" - OnValidateBinCodeOnBeforeTestFields

[KlaasKleermaker]

Why do you need this change?

In 4PS Construct we need to skip TestField(Type, Type::Item) in some cases. In table 37 "Sales Line" the event OnValidateBinCodeOnBeforeTestFields makes it possible to skip this TestField. This should also be possible in "Purchase Line".

Describe the request

Dear ALAppExtensions team,

On behalf of 4PS I would like to request integration event 'OnValidateBinCodeOnBeforeTestFields' to be added to the OnValidate trigger of field "Bin Code" in table 39 "Purchase Line".

            trigger OnValidate()
            var
                Item: Record Item;
                WMSManagement: Codeunit "WMS Management";
                IsHandled: Boolean; //new
            begin
                if "Bin Code" <> '' then
                    if not IsInbound() and ("Quantity (Base)" <> 0) then
                        WMSManagement.FindBinContent("Location Code", "Bin Code", "No.", "Variant Code", '')
                    else
                        WMSManagement.FindBin("Location Code", "Bin Code", '');

                if "Drop Shipment" then
                    ShowBinCodeCannotBeChangedError();

                IsHandled := false; //new
                OnValidateBinCodeOnBeforeTestFields(Rec, IsHandled); //new
                if IsHandled then //new
                    exit; //new

                TestField(Type, Type::Item);
                TestField("Location Code");

                GetItem(Item);
                Item.TestField(Type, Item.Type::Inventory);

                if "Bin Code" <> '' then begin
                    GetLocation("Location Code");
                    Location.TestField("Bin Mandatory");
                    CheckWarehouse(true);
                end;
            end;
        }

    [IntegrationEvent(false, false)]
    local procedure OnValidateBinCodeOnBeforeTestFields(var PurchaseLine: Record "Purchase Line"; var IsHandled: Boolean)
    begin
	    //new
    end;

Internal work item: AB#636254

[AleksandricMarko]

Hi @KlaasKleermaker,

Thanks for submitting this extensibility request. To help us process it efficiently, please update the issue to include the required information.

📚 Extensibility Guidelines

Missing Information:

• Performance Considerations: What is the expected execution frequency and potential performance impact? (e.g., how often is the Bin Code field validated in your scenario?)
• Data Sensitivity Review: Please confirm whether any sensitive data is exposed through this event.
• Multi-Extension Interaction: What are the risks if multiple extensions subscribe to this event, and how would conflicts be mitigated?

Please update the issue with the missing details. We'll automatically re-analyze once updated.

[KlaasKleermaker]

Hi Marko, thanks for your response.

Here are the answers to your questions

Performance Considerations: We expect that the field Bin Code of the Purchase Line is not validated very often, and that adding this event will not have a negative impact on the performance.

Data Sensitivity Review: No sensitive data is exposed through this event.

Multi-Extension Interaction: The only thing that this event subscriber does is skipping some checks when IsHandled is filled with true. Every extension can still make sure that the checks that are important for that extension are executed.

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event with IsHandled pattern in the OnValidate trigger of the Bin Code field in Table 39 "Purchase Line", before the TestField calls. This mirrors the existing OnValidateBinCodeOnBeforeTestFields event in Table 37 "Sales Line".

Location in Bin Code OnValidate trigger (around line 2797):

            trigger OnValidate()
            var
                Item: Record Item;
                WMSManagement: Codeunit "WMS Management";
                IsHandled: Boolean;
            begin
                if "Bin Code" <> '' then
                    if not IsInbound() and ("Quantity (Base)" <> 0) then
                        WMSManagement.FindBinContent("Location Code", "Bin Code", "No.", "Variant Code", '')
                    else
                        WMSManagement.FindBin("Location Code", "Bin Code", '');

                if "Drop Shipment" then
                    ShowBinCodeCannotBeChangedError();

                IsHandled := false;
                OnValidateBinCodeOnBeforeTestFields(Rec, IsHandled);  // <-- New event
                if IsHandled then
                    exit;

                TestField(Type, Type::Item);
                TestField("Location Code");

                GetItem(Item);
                Item.TestField(Type, Item.Type::Inventory);

                if "Bin Code" <> '' then begin
                    GetLocation("Location Code");
                    Location.TestField("Bin Mandatory");
                    CheckWarehouse(true);
                end;
            end;

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

[IntegrationEvent(false, false)]
local procedure OnValidateBinCodeOnBeforeTestFields(var PurchaseLine: Record "Purchase Line"; var IsHandled: Boolean)
begin
end;

---

File: PurchaseLine.Table.al