[Event Change Request] Codeunit 333 "Req. Wksh.-Make Order" - OnInsertPurchOrderLineOnBeforeTransferReqLine

[KlaasKleermaker]

Why do you need this change?

In 4PS Construct we need to fill some fields of the purchase order line here and we also need to fill the field "Direct Unit Cost" of the requisition line here.

Describe the request

Dear ALAppExtensions team,

On behalf of 4PS I would like to request integration event 'OnInsertPurchOrderLineOnBeforeTransferReqLine' to be changed in procedure InsertPurchOrderLine in codeunit 333 "Req. Wksh.-Make Order".

    procedure InsertPurchOrderLine(var ReqLine2: Record "Requisition Line"; var PurchOrderHeader: Record "Purchase Header")
    var
        PurchOrderLine2: Record "Purchase Line";
        AddOnIntegrMgt: Codeunit AddOnIntegrManagement;
        DimensionSetIDArr: array[10] of Integer;
        IsHandled: Boolean;
    begin
        .
        .
        .
        PurchOrderLine."Drop Shipment" := ReqLine2."Sales Order Line No." <> 0;

        if PurchasingCode.Get(ReqLine2."Purchasing Code") then
            if PurchasingCode."Special Order" then begin
                PurchOrderLine."Special Order Sales No." := ReqLine2."Sales Order No.";
                PurchOrderLine."Special Order Sales Line No." := ReqLine2."Sales Order Line No.";
                PurchOrderLine."Special Order" := true;
                PurchOrderLine."Drop Shipment" := false;
                PurchOrderLine."Sales Order No." := '';
                PurchOrderLine."Sales Order Line No." := 0;
                PurchOrderLine."Special Order" := true;
                PurchOrderLine.UpdateUnitCost();
            end;

        UpdateJobLink(PurchOrderLine, ReqLine2);

        //OnInsertPurchOrderLineOnBeforeTransferReqLine(PurchOrderHeader, PurchOrderLine); //old
        OnInsertPurchOrderLineOnBeforeTransferReqLine(PurchOrderHeader, PurchOrderLine, ReqLine2); //new
        ReqLineReserve.TransferReqLineToPurchLine(ReqLine2, PurchOrderLine, ReqLine2."Quantity (Base)", false);

        DimensionSetIDArr[1] := PurchOrderLine."Dimension Set ID";
        DimensionSetIDArr[2] := ReqLine2."Dimension Set ID";
        PurchOrderLine."Dimension Set ID" :=
          DimMgt.GetCombinedDimensionSetID(
            DimensionSetIDArr, PurchOrderLine."Shortcut Dimension 1 Code", PurchOrderLine."Shortcut Dimension 2 Code");

    [IntegrationEvent(false, false)]
    //local procedure OnInsertPurchOrderLineOnBeforeTransferReqLine(var PurchOrderHeader: Record "Purchase Header"; PurchOrderLine: Record "Purchase Line") //old
    local procedure OnInsertPurchOrderLineOnBeforeTransferReqLine(var PurchOrderHeader: Record "Purchase Header"; var PurchOrderLine: Record "Purchase Line"; var ReqLine2: Record "Requisition Line") //new
    begin
    end;

(Please make sure that both PurchOrderLine and ReqLine2 are "var" parameters.)
Internal work item: AB#602700

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