Request for a publisher modification in codeunit 99000854 "Inventory Profile Offsetting"

[djuras2]

Describe the request

Dear Support,
Could You please modify publisher in codeunit 99000854 "Inventory Profile Offsetting"?

<<<<< Original >>>>>

local procedure TransProdOrderToProfile(var InventoryProfile: Record "Inventory Profile"; var Item: Record Item; ToDate: Date)
var
    ProdOrderLine: Record "Prod. Order Line";
    CapLedgEntry: Record "Capacity Ledger Entry";
    ProdOrderComp: Record "Prod. Order Component";
    ProdOrderLineReserve: Codeunit "Prod. Order Line-Reserve";
    ShouldProcess: Boolean;
begin
    if ProdOrderLine.FindLinesWithItemToPlan(Item, true) then
        repeat
            ShouldProcess := ProdOrderLine."Due Date" <> 0D;
            OnTransProdOrderToProfileOnBeforeProcessLine(ProdOrderLine, ShouldProcess);
            if ShouldProcess then begin
                InventoryProfile.Init();
                InventoryProfile."Line No." := GetNextLineNo();
                ProdOrderLineReserve.TransferInventoryProfileFromProdOrderLine(InventoryProfile, ProdOrderLine, TempItemTrkgEntry);
                if (ProdOrderLine."Planning Flexibility" = ProdOrderLine."Planning Flexibility"::Unlimited) and
                   (ProdOrderLine.Status = ProdOrderLine.Status::Released)
                then begin
                    CapLedgEntry.SetCurrentKey("Order Type", "Order No.");
                    CapLedgEntry.SetRange("Order Type", CapLedgEntry."Order Type"::Production);
                    CapLedgEntry.SetRange("Order No.", ProdOrderLine."Prod. Order No.");
                    ItemLedgEntry.Reset();
                    ItemLedgEntry.SetCurrentKey("Order Type", "Order No.");
                    ItemLedgEntry.SetRange("Order Type", ItemLedgEntry."Order Type"::Production);
                    ItemLedgEntry.SetRange("Order No.", ProdOrderLine."Prod. Order No.");
                    if not (CapLedgEntry.IsEmpty() and ItemLedgEntry.IsEmpty) then
                        InventoryProfile."Planning Flexibility" := InventoryProfile."Planning Flexibility"::None
                    else begin
                        ProdOrderComp.SetRange(Status, ProdOrderLine.Status);
                        ProdOrderComp.SetRange("Prod. Order No.", ProdOrderLine."Prod. Order No.");
                        ProdOrderComp.SetRange("Prod. Order Line No.", ProdOrderLine."Line No.");
                        ProdOrderComp.SetFilter("Qty. Picked (Base)", '>0');
                        if not ProdOrderComp.IsEmpty() then
                            InventoryProfile."Planning Flexibility" := InventoryProfile."Planning Flexibility"::None;
                    end;
                end;
                InventoryProfile.InsertSupplyInvtProfile(ToDate);
            end;
        until ProdOrderLine.Next() = 0;
end;

<<<<< Modified >>>>>

local procedure TransProdOrderToProfile(var InventoryProfile: Record "Inventory Profile"; var Item: Record Item; ToDate: Date)
var
    ProdOrderLine: Record "Prod. Order Line";
    CapLedgEntry: Record "Capacity Ledger Entry";
    ProdOrderComp: Record "Prod. Order Component";
    ProdOrderLineReserve: Codeunit "Prod. Order Line-Reserve";
    ShouldProcess: Boolean;
begin
    if ProdOrderLine.FindLinesWithItemToPlan(Item, true) then
        repeat
            ShouldProcess := ProdOrderLine."Due Date" <> 0D;
            OnTransProdOrderToProfileOnBeforeProcessLine(ProdOrderLine, ShouldProcess);
            if ShouldProcess then begin
                InventoryProfile.Init();
                InventoryProfile."Line No." := GetNextLineNo();
                ProdOrderLineReserve.TransferInventoryProfileFromProdOrderLine(InventoryProfile, ProdOrderLine, TempItemTrkgEntry);
                if (ProdOrderLine."Planning Flexibility" = ProdOrderLine."Planning Flexibility"::Unlimited) and
                   (ProdOrderLine.Status = ProdOrderLine.Status::Released)
                then begin
                    CapLedgEntry.SetCurrentKey("Order Type", "Order No.");
                    CapLedgEntry.SetRange("Order Type", CapLedgEntry."Order Type"::Production);
                    CapLedgEntry.SetRange("Order No.", ProdOrderLine."Prod. Order No.");
                    ItemLedgEntry.Reset();
                    ItemLedgEntry.SetCurrentKey("Order Type", "Order No.");
                    ItemLedgEntry.SetRange("Order Type", ItemLedgEntry."Order Type"::Production);
                    ItemLedgEntry.SetRange("Order No.", ProdOrderLine."Prod. Order No.");
                    if not (CapLedgEntry.IsEmpty() and ItemLedgEntry.IsEmpty) then
                        InventoryProfile."Planning Flexibility" := InventoryProfile."Planning Flexibility"::None
                    else begin
                        ProdOrderComp.SetRange(Status, ProdOrderLine.Status);
                        ProdOrderComp.SetRange("Prod. Order No.", ProdOrderLine."Prod. Order No.");
                        ProdOrderComp.SetRange("Prod. Order Line No.", ProdOrderLine."Line No.");
                        ProdOrderComp.SetFilter("Qty. Picked (Base)", '>0');
                        if not ProdOrderComp.IsEmpty() then
                            InventoryProfile."Planning Flexibility" := InventoryProfile."Planning Flexibility"::None;
                    end;
                end;
                OnBeforeInsertSupplyInvtProfileTransProdOrderToProfile(InventoryProfile, ProdOrderLine); 
                InventoryProfile.InsertSupplyInvtProfile(ToDate);
            end;
        until ProdOrderLine.Next() = 0;
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeInsertSupplyInvtProfileTransProdOrderToProfile(var InventoryProfile: Record "Inventory Profile"; ProdOrderLine: Record "Prod. Order Line")
begin
end;

<<<<< Original >>>>>

local procedure TransRcptTransLineToProfile(var InventoryProfile: Record "Inventory Profile"; var Item: Record Item; ToDate: Date)
var
    TransLine: Record "Transfer Line";
    WhseEntry: Record "Warehouse Entry";
    FilterIsSetOnLocation: Boolean;
    ShouldProcess: Boolean;
begin
    OnBeforeTransRcptTransLineToProfile(InventoryProfile, Item, ToDate);
    FilterIsSetOnLocation := Item.GetFilter("Location Filter") <> '';
    if TransLine.FindLinesWithItemToPlan(Item, true, true) then
        repeat
            ShouldProcess := TransLine."Receipt Date" <> 0D;
            OnTransRcptTransLineToProfileOnBeforeProcessLine(TransLine, ShouldProcess, Item);
            if ShouldProcess then begin
                InventoryProfile.Init();
                InventoryProfile."Line No." := GetNextLineNo();
                InventoryProfile.TransferFromInboundTransfer(TransLine, TempItemTrkgEntry);
                if TransLine."Planning Flexibility" = TransLine."Planning Flexibility"::Unlimited then
                    if (InventoryProfile."Finished Quantity" > 0) or
                       (TransLine."Quantity Shipped" > 0) or (TransLine."Derived From Line No." > 0)
                    then
                        InventoryProfile."Planning Flexibility" := InventoryProfile."Planning Flexibility"::None
                    else begin
                        WhseEntry.SetSourceFilter(
                          Database::"Transfer Line", 0, InventoryProfile."Source ID", InventoryProfile."Source Ref. No.", true);
                        if not WhseEntry.IsEmpty() then
                            InventoryProfile."Planning Flexibility" := InventoryProfile."Planning Flexibility"::None;
                    end;
                if FilterIsSetOnLocation then
                    InventoryProfile."Transfer Location Not Planned" := TransferLocationIsFilteredOut(Item, TransLine);
                InventoryProfile.InsertSupplyInvtProfile(ToDate);
                InsertTempTransferSKU(TransLine);
                OnTransRcptTransLineToProfileOnAfterInsertInventoryProfile(TransLine, InventoryProfile);
            end;
        until TransLine.Next() = 0;
end;

<<<<< Modified >>>>>

local procedure TransRcptTransLineToProfile(var InventoryProfile: Record "Inventory Profile"; var Item: Record Item; ToDate: Date)
var
    TransLine: Record "Transfer Line";
    WhseEntry: Record "Warehouse Entry";
    FilterIsSetOnLocation: Boolean;
    ShouldProcess: Boolean;
begin
    OnBeforeTransRcptTransLineToProfile(InventoryProfile, Item, ToDate);
    FilterIsSetOnLocation := Item.GetFilter("Location Filter") <> '';
    if TransLine.FindLinesWithItemToPlan(Item, true, true) then
        repeat
            ShouldProcess := TransLine."Receipt Date" <> 0D;
            OnTransRcptTransLineToProfileOnBeforeProcessLine(TransLine, ShouldProcess, Item);
            if ShouldProcess then begin
                InventoryProfile.Init();
                InventoryProfile."Line No." := GetNextLineNo();
                InventoryProfile.TransferFromInboundTransfer(TransLine, TempItemTrkgEntry);
                if TransLine."Planning Flexibility" = TransLine."Planning Flexibility"::Unlimited then
                    if (InventoryProfile."Finished Quantity" > 0) or
                       (TransLine."Quantity Shipped" > 0) or (TransLine."Derived From Line No." > 0)
                    then
                        InventoryProfile."Planning Flexibility" := InventoryProfile."Planning Flexibility"::None
                    else begin
                        WhseEntry.SetSourceFilter(
                          Database::"Transfer Line", 0, InventoryProfile."Source ID", InventoryProfile."Source Ref. No.", true);
                        if not WhseEntry.IsEmpty() then
                            InventoryProfile."Planning Flexibility" := InventoryProfile."Planning Flexibility"::None;
                    end;
                if FilterIsSetOnLocation then
                    InventoryProfile."Transfer Location Not Planned" := TransferLocationIsFilteredOut(Item, TransLine);
                OnBeforeInsertSupplyInvtProfileTransRcptTransLineToProfile(InventoryProfile, TransLine);
                InventoryProfile.InsertSupplyInvtProfile(ToDate);
                InsertTempTransferSKU(TransLine);
                OnTransRcptTransLineToProfileOnAfterInsertInventoryProfile(TransLine, InventoryProfile);
            end;
        until TransLine.Next() = 0;
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeInsertSupplyInvtProfileTransRcptTransLineToProfile(var InventoryProfile: Record "Inventory Profile"; TransLine: Record "Transfer Line")
begin
end;

<<<<< Original >>>>>

.
.
OnPlanItemOnBeforeInsertSafetyStockDemands(DemandInvtProfile, TempSKU);
InsertSafetyStockDemands(DemandInvtProfile, PlanningStartDate);
UpdatePriorities(SupplyInvtProfile, IsReorderPointPlanning, ToDate);

DemandExists := DemandInvtProfile.FindSet();
DemandForAdditionalProfile := DemandForAdditionalLine(DemandInvtProfile, SupplyInvtProfile);
SupplyExists := SupplyInvtProfile.FindSet();
LatestBucketStartDate := PlanningStartDate;
LastProjectedInventory := 0;
LastAvailableInventory := 0;
PlanThisSKU := CheckPlanSKU(TempSKU, DemandExists, SupplyExists, IsReorderPointPlanning);
.
.

<<<<< Modified >>>>>

.
.
OnPlanItemOnBeforeInsertSafetyStockDemands(DemandInvtProfile, TempSKU);
InsertSafetyStockDemands(DemandInvtProfile, PlanningStartDate);
UpdatePriorities(SupplyInvtProfile, IsReorderPointPlanning, ToDate);

DemandExists := DemandInvtProfile.FindSet();
DemandForAdditionalProfile := DemandForAdditionalLine(DemandInvtProfile, SupplyInvtProfile);
SupplyExists := SupplyInvtProfile.FindSet();
LatestBucketStartDate := PlanningStartDate;
OnAfterInitLatestBucketStartDatePlanItem(LatestBucketStartDate);
LastProjectedInventory := 0;
LastAvailableInventory := 0;
PlanThisSKU := CheckPlanSKU(TempSKU, DemandExists, SupplyExists, IsReorderPointPlanning);
.
.

[IntegrationEvent(false, false)]
local procedure OnAfterInitLatestBucketStartDatePlanItem(var LatestBucketStartDate: Date)
begin
end;

<<<<< Original >>>>>

local procedure InsertEmergencyOrderSupply(var SupplyInvtProfile: Record "Inventory Profile"; var DemandInvtProfile: Record "Inventory Profile"; var LastAvailableInventory: Decimal; var LastProjectedInventory: Decimal; PlanningStartDate: Date)
var
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeInsertEmergencyOrderSupply(SupplyInvtProfile, DemandInvtProfile, IsHandled);
    if IsHandled then
        exit;
.
.

<<<<< Modified >>>>>

local procedure InsertEmergencyOrderSupply(var SupplyInvtProfile: Record "Inventory Profile"; var DemandInvtProfile: Record "Inventory Profile"; var LastAvailableInventory: Decimal; var LastProjectedInventory: Decimal;  var PlanningStartDate: Date)
var
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeInsertEmergencyOrderSupply(SupplyInvtProfile, DemandInvtProfile, IsHandled, PlanningStartDate);
    if IsHandled then
        exit;
.
.

[IntegrationEvent(false, false)]
local procedure OnBeforeInsertEmergencyOrderSupply(var SupplyInventoryProfile: Record "Inventory Profile"; var DemandInventoryProfile: Record "Inventory Profile"; var IsHandled: Boolean; var PlanningStartDate: Date)
begin
end;

<<<<< Original >>>>>

local procedure InsertEmergencyOrderSupply(var SupplyInvtProfile: Record "Inventory Profile"; var DemandInvtProfile: Record "Inventory Profile"; var LastAvailableInventory: Decimal; var LastProjectedInventory: Decimal; PlanningStartDate: Date)
var
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeInsertEmergencyOrderSupply(SupplyInvtProfile, DemandInvtProfile, IsHandled);
    if IsHandled then
        exit;

    InitSupply(SupplyInvtProfile, -LastAvailableInventory, PlanningStartDate - 1, 0T);
    OnInsertEmergencyOrderSupplyOnAfterInitSupply(SupplyInvtProfile, DemandInvtProfile);
    SupplyInvtProfile."Planning Flexibility" := SupplyInvtProfile."Planning Flexibility"::None;
    SupplyInvtProfile.Insert();
    MaintainPlanningLine(SupplyInvtProfile, DemandInvtProfile, PlanningLineStage::Exploded, ScheduleDirection::Backward);
    Track(SupplyInvtProfile, DemandInvtProfile, true, false, SupplyInvtProfile.Binding::" ");

    DemandInvtProfile.SetFilter("Untracked Quantity", '<>0');
    if DemandInvtProfile.FindFirst() then
        Track(DemandInvtProfile, SupplyInvtProfile, true, false, Enum::"Reservation Binding"::" ");
    DemandInvtProfile.SetRange("Untracked Quantity");

    LastProjectedInventory += SupplyInvtProfile."Remaining Quantity (Base)";
    LastAvailableInventory += SupplyInvtProfile."Untracked Quantity";
    PlanningTransparency.LogSurplus(
        SupplyInvtProfile."Line No.", SupplyInvtProfile."Line No.", 0, '',
        SupplyInvtProfile."Untracked Quantity", SurplusType::EmergencyOrder);
    SupplyInvtProfile."Untracked Quantity" := 0;
    if SupplyInvtProfile."Planning Line No." <> ReqLine."Line No." then
        ReqLine.Get(CurrTemplateName, CurrWorksheetName, SupplyInvtProfile."Planning Line No.");
    PlanningTransparency.PublishSurplus(SupplyInvtProfile, TempSKU, ReqLine, TempTrkgReservEntry);
    DummyInventoryProfileTrackBuffer."Warning Level" := DummyInventoryProfileTrackBuffer."Warning Level"::Emergency;
    PlanningTransparency.LogWarning(
        0, ReqLine, DummyInventoryProfileTrackBuffer."Warning Level",
        StrSubstNo(
        Text006, DummyInventoryProfileTrackBuffer."Warning Level", -SupplyInvtProfile."Remaining Quantity (Base)",
        PlanningStartDate));
    SupplyInvtProfile.Delete();
end;

<<<<< Modified >>>>>

local procedure InsertEmergencyOrderSupply(var SupplyInvtProfile: Record "Inventory Profile"; var DemandInvtProfile: Record "Inventory Profile"; var LastAvailableInventory: Decimal; var LastProjectedInventory: Decimal; PlanningStartDate: Date)
var
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeInsertEmergencyOrderSupply(SupplyInvtProfile, DemandInvtProfile, IsHandled);
    if IsHandled then
        exit;

    InitSupply(SupplyInvtProfile, -LastAvailableInventory, PlanningStartDate - 1, 0T);
    OnInsertEmergencyOrderSupplyOnAfterInitSupply(SupplyInvtProfile, DemandInvtProfile);
    SupplyInvtProfile."Planning Flexibility" := SupplyInvtProfile."Planning Flexibility"::None;
    SupplyInvtProfile.Insert();
    MaintainPlanningLine(SupplyInvtProfile, DemandInvtProfile, PlanningLineStage::Exploded, ScheduleDirection::Backward);
    Track(SupplyInvtProfile, DemandInvtProfile, true, false, SupplyInvtProfile.Binding::" ");

    DemandInvtProfile.SetFilter("Untracked Quantity", '<>0');
    if DemandInvtProfile.FindFirst() then
        Track(DemandInvtProfile, SupplyInvtProfile, true, false, Enum::"Reservation Binding"::" ");
    DemandInvtProfile.SetRange("Untracked Quantity");

    LastProjectedInventory += SupplyInvtProfile."Remaining Quantity (Base)";
    LastAvailableInventory += SupplyInvtProfile."Untracked Quantity";
    PlanningTransparency.LogSurplus(
        SupplyInvtProfile."Line No.", SupplyInvtProfile."Line No.", 0, '',
        SupplyInvtProfile."Untracked Quantity", SurplusType::EmergencyOrder);
    SupplyInvtProfile."Untracked Quantity" := 0;
    if SupplyInvtProfile."Planning Line No." <> ReqLine."Line No." then
        ReqLine.Get(CurrTemplateName, CurrWorksheetName, SupplyInvtProfile."Planning Line No.");
    PlanningTransparency.PublishSurplus(SupplyInvtProfile, TempSKU, ReqLine, TempTrkgReservEntry);
    DummyInventoryProfileTrackBuffer."Warning Level" := DummyInventoryProfileTrackBuffer."Warning Level"::Emergency;
    PlanningTransparency.LogWarning(
        0, ReqLine, DummyInventoryProfileTrackBuffer."Warning Level",
        StrSubstNo(
        Text006, DummyInventoryProfileTrackBuffer."Warning Level", -SupplyInvtProfile."Remaining Quantity (Base)",
        PlanningStartDate));
    SupplyInvtProfile.Delete();
OnAfterInsertEmergencyOrderSupply(SupplyInvtProfile, DemandInvtProfile, PlanningStartDate); 
end;

[IntegrationEvent(false, false)]
local procedure OnAfterInsertEmergencyOrderSupply(var SupplyInventoryProfile: Record "Inventory Profile"; var DemandInventoryProfile: Record "Inventory Profile"; var PlanningStartDate: Date)
begin
end;

<<<<< Original >>>>> (in func. PlanItem)

if LastProjectedInventory + SupplyWithinLeadtime <= TempSKU."Reorder Point" then begin
  IsHandled := false;
  OnPlanItemOnBeforeInitSupply(LastProjectedInventory, SupplyWithinLeadtime, TempSKU, IsHandled);
  if not IsHandled then begin
      if (TempSKU."Reordering Policy" = TempSKU."Reordering Policy"::"Maximum Qty.") and DemandForAdditionalProfile then
          LastProjectedInventory := 0;
      InitSupply(SupplyInvtProfile, 0, 0D, 0T);

      IsHandled := false;
      OnPlanItemOnBeforeCreateSupplyForward(TempSKU, SupplyInvtProfile, DemandInvtProfile, TempReminderInvtProfile, PlanningStartDate, LastAvailableInventory, LastProjectedInventory, NewSupplyHasTakenOver, IsHandled);
      if not IsHandled then
          CreateSupplyForward(
          SupplyInvtProfile, DemandInvtProfile, TempReminderInvtProfile,
          PlanningStartDate, LastProjectedInventory, NewSupplyHasTakenOver, DemandInvtProfile."Due Date");

      NeedOfPublishSurplus := SupplyInvtProfile."Due Date" > ToDate;
  end;
end;

<<<<< Modified >>>>>

if LastProjectedInventory + SupplyWithinLeadtime <= TempSKU."Reorder Point" then begin
  IsHandled := false;
  OnPlanItemOnBeforeInitSupply(LastProjectedInventory, SupplyWithinLeadtime, TempSKU, IsHandled, PlanningStartDate);
  if not IsHandled then begin
      if (TempSKU."Reordering Policy" = TempSKU."Reordering Policy"::"Maximum Qty.") and DemandForAdditionalProfile then
          LastProjectedInventory := 0;
      InitSupply(SupplyInvtProfile, 0, 0D, 0T);

      IsHandled := false;
      OnPlanItemOnBeforeCreateSupplyForward(TempSKU, SupplyInvtProfile, DemandInvtProfile, TempReminderInvtProfile, PlanningStartDate, LastAvailableInventory, LastProjectedInventory, NewSupplyHasTakenOver, IsHandled);
      if not IsHandled then
          CreateSupplyForward(
          SupplyInvtProfile, DemandInvtProfile, TempReminderInvtProfile,
          PlanningStartDate, LastProjectedInventory, NewSupplyHasTakenOver, DemandInvtProfile."Due Date");

      NeedOfPublishSurplus := SupplyInvtProfile."Due Date" > ToDate;
      OnAfterCreateInitialReorderPointSupply(PlanningStartDate);
  end;
end;

[IntegrationEvent(false, false)]
local procedure OnPlanItemOnBeforeInitSupply(LastProjectedInventory: Decimal; SupplyWithinLeadtime: Decimal; var TempSKU: Record "Stockkeeping Unit" temporary; var IsHandled: Boolean; var PlanningStartDate: Date)
begin
end;

[IntegrationEvent(false, false)]
local procedure OnAfterCreateInitialReorderPointSupply(var PlanningStartDate: Date)
begin
end;

<<<<< Original >>>>>

local procedure CreateSupplyForInitialSafetyStockWarning(var SupplyInventoryProfile: Record "Inventory Profile"; ProjectedInventory: Decimal; var LastProjectedInventory: Decimal; var LastAvailableInventory: Decimal; PlanningStartDate: Date; RespectPlanningParm: Boolean; IsReorderPointPlanning: Boolean)
var
    OrderQty: Decimal;
    ReorderQty: Decimal;
begin
    OrderQty := TempSKU."Safety Stock Quantity" - ProjectedInventory;
    if ExceedROPinException(RespectPlanningParm) then
        OrderQty := TempSKU."Reorder Point" - ProjectedInventory;

    ReorderQty := OrderQty;
.
.

<<<<< Modified >>>>>

local procedure CreateSupplyForInitialSafetyStockWarning(var SupplyInventoryProfile: Record "Inventory Profile"; ProjectedInventory: Decimal; var LastProjectedInventory: Decimal; var LastAvailableInventory: Decimal; PlanningStartDate: Date; RespectPlanningParm: Boolean; IsReorderPointPlanning: Boolean)
var
    OrderQty: Decimal;
    ReorderQty: Decimal;
begin
    OnBeforeCreateSupplyForInitialSafetyStockWarning(PlanningStartDate, SupplyInventoryProfile);
    OrderQty := TempSKU."Safety Stock Quantity" - ProjectedInventory;
    if ExceedROPinException(RespectPlanningParm) then
        OrderQty := TempSKU."Reorder Point" - ProjectedInventory;

    ReorderQty := OrderQty;
.
.

[IntegrationEvent(false, false)]
local procedure OnBeforeCreateSupplyForInitialSafetyStockWarning(var PlanningStartDate: Date; var SupplyInventoryProfile: Record "Inventory Profile")
begin
end;

<<<<< Original >>>>>

procedure GetRouting(var ReqLine: Record "Requisition Line")
var
    PlanRoutingLine: Record "Planning Routing Line";
    ProdOrderRoutingLine: Record "Prod. Order Routing Line";
    ProdOrderLine: Record "Prod. Order Line";
    VersionMgt: Codeunit VersionManagement;
begin
    if ReqLine.Quantity <= 0 then
        exit;

    if (ReqLine."Action Message" = ReqLine."Action Message"::New) or
       (ReqLine."Ref. Order Type" = ReqLine."Ref. Order Type"::Purchase)
    then begin
        if ReqLine."Routing No." <> '' then
            ReqLine.Validate(ReqLine."Routing Version Code",
              VersionMgt.GetRtngVersion(ReqLine."Routing No.", ReqLine."Due Date", true));
        Clear(PlngLnMgt);
        if PlanningResiliency then
            PlngLnMgt.SetResiliencyOn(ReqLine."Worksheet Template Name", ReqLine."Journal Batch Name", ReqLine."No.");
        OnGetRoutingOnAfterSetResiliencyOn(ReqLine);
    end else
        if ReqLine."Ref. Order Type" = ReqLine."Ref. Order Type"::"Prod. Order" then begin
            ProdOrderLine.Get(ReqLine."Ref. Order Status", ReqLine."Ref. Order No.", ReqLine."Ref. Line No.");
            ProdOrderRoutingLine.SetRange(Status, ProdOrderLine.Status);
            ProdOrderRoutingLine.SetRange("Prod. Order No.", ProdOrderLine."Prod. Order No.");
            ProdOrderRoutingLine.SetRange("Routing Reference No.", ProdOrderLine."Routing Reference No.");
            ProdOrderRoutingLine.SetRange("Routing No.", ProdOrderLine."Routing No.");
            DisableRelations();
            if ProdOrderRoutingLine.Find('-') then
                repeat
                    PlanRoutingLine.Init();
                    PlanRoutingLine."Worksheet Template Name" := ReqLine."Worksheet Template Name";
                    PlanRoutingLine."Worksheet Batch Name" := ReqLine."Journal Batch Name";
                    PlanRoutingLine."Worksheet Line No." := ReqLine."Line No.";
                    PlanRoutingLine.TransferFromProdOrderRouting(ProdOrderRoutingLine);
                    PlanRoutingLine.Insert();
                until ProdOrderRoutingLine.Next() = 0;
            OnAfterGetRoutingFromProdOrder(ReqLine);
        end;
end;

<<<<< Modified >>>>>

procedure GetRouting(var ReqLine: Record "Requisition Line")
var
    PlanRoutingLine: Record "Planning Routing Line";
    ProdOrderRoutingLine: Record "Prod. Order Routing Line";
    ProdOrderLine: Record "Prod. Order Line";
    VersionMgt: Codeunit VersionManagement;
begin
    if ReqLine.Quantity <= 0 then
        exit;

    if (ReqLine."Action Message" = ReqLine."Action Message"::New) or
       (ReqLine."Ref. Order Type" = ReqLine."Ref. Order Type"::Purchase)
    then begin
        if ReqLine."Routing No." <> '' then
            ReqLine.Validate(ReqLine."Routing Version Code",
              VersionMgt.GetRtngVersion(ReqLine."Routing No.", ReqLine."Due Date", true));
        Clear(PlngLnMgt);
        if PlanningResiliency then
            PlngLnMgt.SetResiliencyOn(ReqLine."Worksheet Template Name", ReqLine."Journal Batch Name", ReqLine."No.");
        OnGetRoutingOnAfterSetResiliencyOn(ReqLine);
    end else
        if ReqLine."Ref. Order Type" = ReqLine."Ref. Order Type"::"Prod. Order" then begin
            ProdOrderLine.Get(ReqLine."Ref. Order Status", ReqLine."Ref. Order No.", ReqLine."Ref. Line No.");
            ProdOrderRoutingLine.SetRange(Status, ProdOrderLine.Status);
            ProdOrderRoutingLine.SetRange("Prod. Order No.", ProdOrderLine."Prod. Order No.");
            ProdOrderRoutingLine.SetRange("Routing Reference No.", ProdOrderLine."Routing Reference No.");
            ProdOrderRoutingLine.SetRange("Routing No.", ProdOrderLine."Routing No.");
            DisableRelations();
            if ProdOrderRoutingLine.Find('-') then
                repeat
                    PlanRoutingLine.Init();
                    PlanRoutingLine."Worksheet Template Name" := ReqLine."Worksheet Template Name";
                    PlanRoutingLine."Worksheet Batch Name" := ReqLine."Journal Batch Name";
                    PlanRoutingLine."Worksheet Line No." := ReqLine."Line No.";
                    PlanRoutingLine.TransferFromProdOrderRouting(ProdOrderRoutingLine);
                    PlanRoutingLine.Insert();
                until ProdOrderRoutingLine.Next() = 0;
            OnAfterGetRoutingFromProdOrder(ReqLine);
        end;
    OnAfterGetRouting(ReqLine);
end;

[IntegrationEvent(false, false)]
local procedure OnAfterGetRouting(var ReqLine: Record "Requisition Line")
begin
end;

<<<<< Original >>>>>

[IntegrationEvent(false, false)]
local procedure OnMaintainPlanningLineOnBeforeReqLineInsert(var RequisitionLine: Record "Requisition Line"; var SupplyInvtProfile: Record "Inventory Profile"; PlanToDate: Date; CurrentForecast: Code[10]; NewPhase: Option " ","Line Created","Routing Created",Exploded,Obsolete; Direction: Option Forward,Backward; DemandInvtProfile: Record "Inventory Profile"; ExcludeForecastBefore: Date)
begin
end;

<<<<< Modified >>>>>

[IntegrationEvent(false, false)]
local procedure OnMaintainPlanningLineOnBeforeReqLineInsert(var RequisitionLine: Record "Requisition Line"; var SupplyInvtProfile: Record "Inventory Profile"; PlanToDate: Date; CurrentForecast: Code[10]; NewPhase: Option " ","Line Created","Routing Created",Exploded,Obsolete; Direction: Option Forward,Backward; var DemandInvtProfile: Record "Inventory Profile"; ExcludeForecastBefore: Date)
begin
end;

<<<<< Original >>>>>

procedure SumUpProjectedSupply(var SupplyInvtProfile: Record "Inventory Profile"; FromDate: Date; ToDate: Date) ProjectedQty: Decimal
var
    xSupplyInvtProfile: Record "Inventory Profile";
begin
    // Sums up the contribution to the projected inventory

    xSupplyInvtProfile.Copy(SupplyInvtProfile);
    SupplyInvtProfile.SetRange("Due Date", FromDate, ToDate);

    if SupplyInvtProfile.FindSet() then
        repeat
            if (SupplyInvtProfile.Binding <> SupplyInvtProfile.Binding::"Order-to-Order") and
               (SupplyInvtProfile."Order Relation" <> SupplyInvtProfile."Order Relation"::"Safety Stock")
            then
                ProjectedQty += SupplyInvtProfile."Remaining Quantity (Base)";
        until SupplyInvtProfile.Next() = 0;

    SupplyInvtProfile.Copy(xSupplyInvtProfile);
end;

<<<<< Modified >>>>>

procedure SumUpProjectedSupply(var SupplyInvtProfile: Record "Inventory Profile"; FromDate: Date; ToDate: Date) ProjectedQty: Decimal
var
    xSupplyInvtProfile: Record "Inventory Profile";
begin
    OnBeforeSumUpProjectedSupply(SupplyInvtProfile, FromDate, ToDate);
    // Sums up the contribution to the projected inventory

    xSupplyInvtProfile.Copy(SupplyInvtProfile);
    SupplyInvtProfile.SetRange("Due Date", FromDate, ToDate);

    if SupplyInvtProfile.FindSet() then
        repeat
            if (SupplyInvtProfile.Binding <> SupplyInvtProfile.Binding::"Order-to-Order") and
               (SupplyInvtProfile."Order Relation" <> SupplyInvtProfile."Order Relation"::"Safety Stock")
            then
                ProjectedQty += SupplyInvtProfile."Remaining Quantity (Base)";
        until SupplyInvtProfile.Next() = 0;

    SupplyInvtProfile.Copy(xSupplyInvtProfile);
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeSumUpProjectedSupply(var SupplyInvtProfile: Record "Inventory Profile"; var FromDate: Date; var ToDate: Date)
begin
end;

<<<<< Original >>>>>

local procedure SumUpAvailableSupply(var SupplyInvtProfile: Record "Inventory Profile"; FromDate: Date; ToDate: Date) AvailableQty: Decimal
var
    xSupplyInvtProfile: Record "Inventory Profile";
begin
    // Sums up the contribution to the available inventory

    xSupplyInvtProfile.Copy(SupplyInvtProfile);
    SupplyInvtProfile.SetRange("Due Date", FromDate, ToDate);

    if SupplyInvtProfile.FindSet() then
        repeat
            AvailableQty += SupplyInvtProfile."Untracked Quantity";
        until SupplyInvtProfile.Next() = 0;

    SupplyInvtProfile.Copy(xSupplyInvtProfile);
end;

<<<<< Modified >>>>>

local procedure SumUpAvailableSupply(var SupplyInvtProfile: Record "Inventory Profile"; FromDate: Date; ToDate: Date) AvailableQty: Decimal
var
    xSupplyInvtProfile: Record "Inventory Profile";
begin
    OnBeforeSumUpAvailableSupply(SupplyInvtProfile, FromDate, ToDate);
    // Sums up the contribution to the available inventory

    xSupplyInvtProfile.Copy(SupplyInvtProfile);
    SupplyInvtProfile.SetRange("Due Date", FromDate, ToDate);

    if SupplyInvtProfile.FindSet() then
        repeat
            AvailableQty += SupplyInvtProfile."Untracked Quantity";
        until SupplyInvtProfile.Next() = 0;

    SupplyInvtProfile.Copy(xSupplyInvtProfile);
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeSumUpAvailableSupply(var SupplyInvtProfile: Record "Inventory Profile"; var FromDate: Date; var ToDate: Date)
begin
end;

<<<<< Original >>>>>

IntegrationEvent(false, false)]
local procedure OnPlanItemOnBeforePlanThisSKULoopIteration(var StockkeepingUnit: Record "Stockkeeping Unit"; NextState: Option; var DemandInventoryProfile: Record "Inventory Profile"; var SupplyInventoryProfile: Record "Inventory Profile")
begin
end;

<<<<< Modified >>>>>

IntegrationEvent(false, false)]
local procedure OnPlanItemOnBeforePlanThisSKULoopIteration(var StockkeepingUnit: Record "Stockkeeping Unit"; NextState: Option; var DemandInventoryProfile: Record "Inventory Profile"; var SupplyInventoryProfile: Record "Inventory Profile", var SupplyExists: Boolean, var DemandExists: Boolean, var LotAccumulationPeriodStartDate: Date)
begin
end;

Additional context

due to customer modifications