[EventSubscriber(ObjectType::Codeunit, Codeunit::"Purch. Doc. From Sales Doc.", OnCreatePurchaseOrderOnAfterPurchaseHeaderSetFilters, '', true, true)]
local procedure OnCreatePurchaseOrderOnAfterPurchaseHeaderSetFilters_process(var PurchaseHeader: Record "Purchase Header"; SalesHeader: Record "Sales Header")
var
pg: page "Purch. Order From Sales Order";
PurchaseLine: Record "purchase line";
SalesLine: Record "Sales line";
begin
SalesLine.Reset();
SalesLine.setrange("Document No.", SalesHeader."No.");
SalesLine.setrange("Document type", SalesHeader."Document Type");
if SalesLine.FindSet() then begin
repeat
PurchaseLine.Reset();
PurchaseLine.SetRange("Document No.", PurchaseHeader."No.");
PurchaseLine.setrange("Document type", PurchaseHeader."Document Type");
PurchaseLine.setrange("No.", SalesLine."No.");
if PurchaseLine.Findfirst() then begin
PurchaseLine."AKI_SalesOrderNo." := SalesLine."Document No.";
PurchaseLine."AKI_SalesOrderLine No." := SalesLine."line No.";
PurchaseLine.Modify(false);
end;
until SalesLine.Next() = 0;
end;
end;