Codeunit 926 Assembly Line-Reserve
- App
- Base Application
- Namespace
- Microsoft.Assembly.Document
- Versions
- 17-28
Procedures, 28Events, 12Obsolete, 7
Versions171819202122232425262728
Source29
Source in 29
src/Layers/W1/BaseApp/Assembly/Document/AssemblyLineReserve.Codeunit.al1002 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Assembly.Document;
using Microsoft.Foundation.Navigate;
using Microsoft.Inventory.Journal;
using Microsoft.Inventory.Ledger;
using Microsoft.Inventory.Location;
using Microsoft.Inventory.Planning;
using Microsoft.Inventory.Requisition;
using Microsoft.Inventory.Tracking;
using Microsoft.Purchases.Document;
codeunit 926 "Assembly Line-Reserve"
{
Permissions = TableData "Reservation Entry" = rimd;
trigger OnRun()
begin
end;
var
FromTrackingSpecification: Record "Tracking Specification";
CreateReservEntry: Codeunit "Create Reserv. Entry";
ReservationManagement: Codeunit "Reservation Management";
ReservationEngineMgt: Codeunit "Reservation Engine Mgt.";
DeleteItemTracking: Boolean;
DeleteDocLineWithItemReservQst: Label '%1 %2 has item reservation. Do you want to delete it anyway?', Comment = '%1 = Document Type, %2 = Document No.';
Text000Err: Label 'Reserved quantity cannot be greater than %1.', Comment = '%1 - quantity';
Text001Err: Label 'Codeunit is not initialized correctly.';
Text002Err: Label 'must be filled in when a quantity is reserved', Comment = 'starts with "Due Date"';
Text003Err: Label 'must not be changed when a quantity is reserved', Comment = 'starts with some field name';
SummaryTypeTxt: Label '%1, %2', Locked = true;
SourceDoc3Txt: Label '%1 %2 %3', Locked = true;
procedure CreateReservation(AssemblyLine: Record "Assembly Line"; Description: Text[100]; ExpectedReceiptDate: Date; Quantity: Decimal; QuantityBase: Decimal; ForReservationEntry: Record "Reservation Entry")
var
ShipmentDate: Date;
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeCreateReservation(AssemblyLine, Description, ExpectedReceiptDate, Quantity, QuantityBase, ForReservationEntry, FromTrackingSpecification, IsHandled);
if IsHandled then
exit;
if FromTrackingSpecification."Source Type" = 0 then
Error(Text001Err);
AssemblyLine.TestField(Type, AssemblyLine.Type::Item);
AssemblyLine.TestField("No.");
AssemblyLine.TestField("Due Date");
AssemblyLine.CalcFields("Reserved Qty. (Base)");
if Abs(AssemblyLine."Remaining Quantity (Base)") < Abs(AssemblyLine."Reserved Qty. (Base)") + QuantityBase then
Error(
Text000Err,
Abs(AssemblyLine."Remaining Quantity (Base)") - Abs(AssemblyLine."Reserved Qty. (Base)"));
AssemblyLine.TestField("Variant Code", FromTrackingSpecification."Variant Code");
AssemblyLine.TestField("Location Code", FromTrackingSpecification."Location Code");
if QuantityBase * SignFactor(AssemblyLine) < 0 then
ShipmentDate := AssemblyLine."Due Date"
else begin
ShipmentDate := ExpectedReceiptDate;
ExpectedReceiptDate := AssemblyLine."Due Date";
end;
IsHandled := false;
OnCreateReservationOnBeforeCreateReservEntry(AssemblyLine, Quantity, QuantityBase, ForReservationEntry, FromTrackingSpecification, IsHandled, ExpectedReceiptDate, Description, ShipmentDate);
if not IsHandled then begin
CreateReservEntry.CreateReservEntryFor(
Database::"Assembly Line", AssemblyLine."Document Type".AsInteger(),
AssemblyLine."Document No.", '', 0, AssemblyLine."Line No.", AssemblyLine."Qty. per Unit of Measure",
Quantity, QuantityBase, ForReservationEntry);
CreateReservEntry.CreateReservEntryFrom(FromTrackingSpecification);
end;
CreateReservEntry.CreateReservEntry(
AssemblyLine."No.", AssemblyLine."Variant Code", AssemblyLine."Location Code",
Description, ExpectedReceiptDate, ShipmentDate, 0);
FromTrackingSpecification."Source Type" := 0;
end;
procedure CreateBindingReservation(AssemblyLine: Record "Assembly Line"; Description: Text[100]; ExpectedReceiptDate: Date; Quantity: Decimal; QuantityBase: Decimal)
var
DummyReservationEntry: Record "Reservation Entry";
begin
CreateReservation(AssemblyLine, Description, ExpectedReceiptDate, Quantity, QuantityBase, DummyReservationEntry);
end;
procedure CreateReservationSetFrom(TrackingSpecification: Record "Tracking Specification")
begin
FromTrackingSpecification := TrackingSpecification;
end;
local procedure SignFactor(AssemblyLine: Record "Assembly Line"): Integer
begin
if AssemblyLine."Document Type".AsInteger() in [2, 3, 5] then
Error(Text001Err);
exit(-1);
end;
procedure SetBinding(Binding: Enum "Reservation Binding")
begin
CreateReservEntry.SetBinding(Binding);
end;
procedure FilterReservFor(var FilterReservationEntry: Record "Reservation Entry"; AssemblyLine: Record "Assembly Line")
begin
AssemblyLine.SetReservationFilters(FilterReservationEntry);
end;
procedure FindReservEntry(AssemblyLine: Record "Assembly Line"; var ReservationEntry: Record "Reservation Entry"): Boolean
begin
ReservationEntry.InitSortingAndFilters(false);
AssemblyLine.SetReservationFilters(ReservationEntry);
exit(ReservationEntry.FindLast());
end;
local procedure AssignForPlanning(var AssemblyLine: Record "Assembly Line")
var
PlanningAssignment: Record "Planning Assignment";
begin
if AssemblyLine."Document Type" <> AssemblyLine."Document Type"::Order then
exit;
if AssemblyLine.Type <> AssemblyLine.Type::Item then
exit;
if AssemblyLine."No." <> '' then
PlanningAssignment.ChkAssignOne(AssemblyLine."No.", AssemblyLine."Variant Code", AssemblyLine."Location Code", WorkDate());
end;
procedure ReservEntryExist(AssemblyLine: Record "Assembly Line"): Boolean
begin
exit(AssemblyLine.ReservEntryExist());
end;
procedure DeleteLine(var AssemblyLine: Record "Assembly Line")
begin
ReservationManagement.SetReservSource(AssemblyLine);
if DeleteItemTracking then
ReservationManagement.SetItemTrackingHandling(1); // Allow Deletion
OnDeleteLineOnBeforeDeleteReservationEntries(AssemblyLine);
ReservationManagement.DeleteReservEntries(true, 0);
ReservationManagement.ClearActionMessageReferences();
AssemblyLine.CalcFields("Reserved Qty. (Base)");
AssignForPlanning(AssemblyLine);
end;
procedure SetDeleteItemTracking(AllowDirectDeletion: Boolean)
begin
DeleteItemTracking := AllowDirectDeletion;
end;
procedure GetReservedQtyFromInventory(AssemblyLine: Record "Assembly Line"): Decimal
var
ReservationEntry: Record "Reservation Entry";
QtyReservedFromItemLedger: Query "Qty. Reserved From Item Ledger";
begin
AssemblyLine.SetReservationEntry(ReservationEntry);
QtyReservedFromItemLedger.SetSourceFilter(ReservationEntry);
QtyReservedFromItemLedger.Open();
if QtyReservedFromItemLedger.Read() then
exit(QtyReservedFromItemLedger.Quantity__Base_);
exit(0);
end;
procedure GetReservedQtyFromInventory(AssemblyHeader: Record "Assembly Header"): Decimal
var
ReservationEntry: Record "Reservation Entry";
QtyReservedFromItemLedger: Query "Qty. Reserved From Item Ledger";
begin
ReservationEntry.SetSource(DATABASE::"Assembly Line", AssemblyHeader."Document Type".AsInteger(), AssemblyHeader."No.", 0, '', 0);
QtyReservedFromItemLedger.SetSourceFilter(ReservationEntry);
QtyReservedFromItemLedger.Open();
if QtyReservedFromItemLedger.Read() then
exit(QtyReservedFromItemLedger.Quantity__Base_);
exit(0);
end;
procedure VerifyChange(var NewAssemblyLine: Record "Assembly Line"; var OldAssemblyLine: Record "Assembly Line")
var
AssemblyLine: Record "Assembly Line";
ReservationEntry: Record "Reservation Entry";
ShowError: Boolean;
HasError: Boolean;
begin
if (NewAssemblyLine.Type <> NewAssemblyLine.Type::Item) and (OldAssemblyLine.Type <> OldAssemblyLine.Type::Item) then
exit;
if NewAssemblyLine."Line No." = 0 then
if not AssemblyLine.Get(NewAssemblyLine."Document Type", NewAssemblyLine."Document No.", NewAssemblyLine."Line No.") then
exit;
NewAssemblyLine.CalcFields("Reserved Qty. (Base)");
ShowError := NewAssemblyLine."Reserved Qty. (Base)" <> 0;
if NewAssemblyLine."Due Date" = 0D then begin
if ShowError then
NewAssemblyLine.FieldError("Due Date", Text002Err);
HasError := true;
end;
if NewAssemblyLine.Type <> OldAssemblyLine.Type then begin
if ShowError then
NewAssemblyLine.FieldError(Type, Text003Err);
HasError := true;
end;
if NewAssemblyLine."No." <> OldAssemblyLine."No." then begin
if ShowError then
NewAssemblyLine.FieldError("No.", Text003Err);
HasError := true;
end;
if NewAssemblyLine."Location Code" <> OldAssemblyLine."Location Code" then begin
if ShowError then
NewAssemblyLine.FieldError("Location Code", Text003Err);
HasError := true;
end;
OnVerifyChangeOnBeforeHasError(NewAssemblyLine, OldAssemblyLine, HasError, ShowError);
if (NewAssemblyLine.Type = NewAssemblyLine.Type::Item) and (OldAssemblyLine.Type = OldAssemblyLine.Type::Item) and
(NewAssemblyLine."Bin Code" <> OldAssemblyLine."Bin Code")
then
if not ReservationManagement.CalcIsAvailTrackedQtyInBin(
NewAssemblyLine."No.", NewAssemblyLine."Bin Code",
NewAssemblyLine."Location Code", NewAssemblyLine."Variant Code",
Database::"Assembly Line", NewAssemblyLine."Document Type".AsInteger(),
NewAssemblyLine."Document No.", '', 0, NewAssemblyLine."Line No.")
then begin
if ShowError then
NewAssemblyLine.FieldError("Bin Code", Text003Err);
HasError := true;
end;
if NewAssemblyLine."Variant Code" <> OldAssemblyLine."Variant Code" then begin
if ShowError then
NewAssemblyLine.FieldError("Variant Code", Text003Err);
HasError := true;
end;
if NewAssemblyLine."Line No." <> OldAssemblyLine."Line No." then
HasError := true;
if HasError then
if (NewAssemblyLine."No." <> OldAssemblyLine."No.") or
FindReservEntry(NewAssemblyLine, ReservationEntry)
then begin
if NewAssemblyLine."No." <> OldAssemblyLine."No." then begin
ReservationManagement.SetReservSource(OldAssemblyLine);
ReservationManagement.DeleteReservEntries(true, 0);
ReservationManagement.SetReservSource(NewAssemblyLine);
end else begin
ReservationManagement.SetReservSource(NewAssemblyLine);
ReservationManagement.DeleteReservEntries(true, 0);
end;
ReservationManagement.AutoTrack(NewAssemblyLine."Remaining Quantity (Base)");
end;
if HasError or (NewAssemblyLine."Due Date" <> OldAssemblyLine."Due Date") then begin
AssignForPlanning(NewAssemblyLine);
if (NewAssemblyLine."No." <> OldAssemblyLine."No.") or
(NewAssemblyLine."Variant Code" <> OldAssemblyLine."Variant Code") or
(NewAssemblyLine."Location Code" <> OldAssemblyLine."Location Code")
then
AssignForPlanning(OldAssemblyLine);
end;
end;
procedure VerifyQuantity(var NewAssemblyLine: Record "Assembly Line"; var OldAssemblyLine: Record "Assembly Line")
var
AssemblyLine: Record "Assembly Line";
begin
if NewAssemblyLine.Type <> NewAssemblyLine.Type::Item then
exit;
if NewAssemblyLine."Line No." = OldAssemblyLine."Line No." then
if NewAssemblyLine."Remaining Quantity (Base)" = OldAssemblyLine."Remaining Quantity (Base)" then
exit;
if NewAssemblyLine."Line No." = 0 then
if not AssemblyLine.Get(NewAssemblyLine."Document Type", NewAssemblyLine."Document No.", NewAssemblyLine."Line No.") then
exit;
ReservationManagement.SetReservSource(NewAssemblyLine);
if NewAssemblyLine."Qty. per Unit of Measure" <> OldAssemblyLine."Qty. per Unit of Measure" then
ReservationManagement.ModifyUnitOfMeasure();
OnVerifyQuantityOnBeforeDeleteReservationEntries(NewAssemblyLine);
ReservationManagement.DeleteReservEntries(false, NewAssemblyLine."Remaining Quantity (Base)");
ReservationManagement.ClearSurplus();
ReservationManagement.AutoTrack(NewAssemblyLine."Remaining Quantity (Base)");
AssignForPlanning(NewAssemblyLine);
end;
procedure Caption(AssemblyLine: Record "Assembly Line") CaptionText: Text
begin
CaptionText := AssemblyLine.GetSourceCaption();
end;
procedure CallItemTracking(var AssemblyLine: Record "Assembly Line")
var
TrackingSpecification: Record "Tracking Specification";
ItemTrackingLines: Page "Item Tracking Lines";
begin
InitFromAsmLine(TrackingSpecification, AssemblyLine);
ItemTrackingLines.SetSourceSpec(TrackingSpecification, AssemblyLine."Due Date");
ItemTrackingLines.SetInbound(AssemblyLine.IsInbound());
OnCallItemTrackingOnBeforeItemTrackingLinesRunModal(AssemblyLine, ItemTrackingLines);
ItemTrackingLines.RunModal();
end;
procedure DeleteLineConfirm(var AssemblyLine: Record "Assembly Line"): Boolean
begin
if not AssemblyLine.ReservEntryExist() then
exit(true);
ReservationManagement.SetReservSource(AssemblyLine);
if ReservationManagement.DeleteItemTrackingConfirm() then
DeleteItemTracking := true;
exit(DeleteItemTracking);
end;
procedure UpdateItemTrackingAfterPosting(AssemblyLine: Record "Assembly Line")
var
ReservationEntry: Record "Reservation Entry";
begin
// Used for updating Quantity to Handle and Quantity to Invoice after posting
ReservationEntry.InitSortingAndFilters(false);
ReservationEntry.SetRange("Item No.", AssemblyLine."No.");
ReservationEntry.SetRange("Source Type", Database::"Assembly Line");
ReservationEntry.SetRange("Source Subtype", AssemblyLine."Document Type");
ReservationEntry.SetRange("Source ID", AssemblyLine."Document No.");
ReservationEntry.SetRange("Source Ref. No.", AssemblyLine."Line No.");
ReservationEntry.SetRange("Source Batch Name", '');
ReservationEntry.SetRange("Source Prod. Order Line", 0);
CreateReservEntry.UpdateItemTrackingAfterPosting(ReservationEntry);
end;
procedure TransferAsmLineToItemJnlLine(var AssemblyLine: Record "Assembly Line"; var ItemJournalLine: Record "Item Journal Line"; TransferQty: Decimal; CheckApplFromItemEntry: Boolean): Decimal
var
OldReservationEntry: Record "Reservation Entry";
IsHandled: Boolean;
begin
if TransferQty = 0 then
exit;
if not FindReservEntry(AssemblyLine, OldReservationEntry) then
exit(TransferQty);
ItemJournalLine.TestField("Item No.", AssemblyLine."No.");
ItemJournalLine.TestField("Variant Code", AssemblyLine."Variant Code");
ItemJournalLine.TestField("Location Code", AssemblyLine."Location Code");
OldReservationEntry.LockTable();
OldReservationEntry.FindLast();
if ReservationEngineMgt.InitRecordSet(OldReservationEntry) then begin
repeat
OldReservationEntry.TestField("Item No.", AssemblyLine."No.");
OldReservationEntry.TestField("Variant Code", AssemblyLine."Variant Code");
OldReservationEntry.TestField("Location Code", AssemblyLine."Location Code");
if CheckApplFromItemEntry then begin
OldReservationEntry.TestField("Appl.-from Item Entry");
CreateReservEntry.SetApplyFromEntryNo(OldReservationEntry."Appl.-from Item Entry");
end;
IsHandled := false;
OnTransferAsmLineToItemJnlLineOnBeforeTransferReservationEntry(OldReservationEntry, AssemblyLine, ItemJournalLine, IsHandled);
if not IsHandled then
TransferQty := CreateReservEntry.TransferReservEntry(
Database::"Item Journal Line",
ItemJournalLine."Entry Type".AsInteger(), ItemJournalLine."Journal Template Name",
ItemJournalLine."Journal Batch Name", 0, ItemJournalLine."Line No.",
ItemJournalLine."Qty. per Unit of Measure", OldReservationEntry, TransferQty);
until (ReservationEngineMgt.NEXTRecord(OldReservationEntry) = 0) or (TransferQty = 0);
CheckApplFromItemEntry := false;
end;
exit(TransferQty);
end;
procedure TransferAsmLineToAsmLine(var OldAssemblyLine: Record "Assembly Line"; var NewAssemblyLine: Record "Assembly Line"; TransferQty: Decimal)
var
OldReservationEntry: Record "Reservation Entry";
ReservStatus: Enum "Reservation Status";
begin
if TransferQty = 0 then
exit;
if not FindReservEntry(OldAssemblyLine, OldReservationEntry) then
exit;
OldReservationEntry.Lock();
NewAssemblyLine.TestField("No.", OldAssemblyLine."No.");
NewAssemblyLine.TestField("Variant Code", OldAssemblyLine."Variant Code");
NewAssemblyLine.TestField("Location Code", OldAssemblyLine."Location Code");
for ReservStatus := ReservStatus::Reservation to ReservStatus::Prospect do begin
OldReservationEntry.SetRange("Reservation Status", ReservStatus);
if OldReservationEntry.FindSet() then
repeat
OldReservationEntry.TestField("Item No.", OldAssemblyLine."No.");
OldReservationEntry.TestField("Variant Code", OldAssemblyLine."Variant Code");
OldReservationEntry.TestField("Location Code", OldAssemblyLine."Location Code");
OnTransferAsmLineToAsmLineOnBeforeTransferReservationEntry(OldAssemblyLine, NewAssemblyLine, OldReservationEntry);
TransferQty :=
CreateReservEntry.TransferReservEntry(
Database::"Assembly Line", NewAssemblyLine."Document Type".AsInteger(), NewAssemblyLine."Document No.", '', 0,
NewAssemblyLine."Line No.", NewAssemblyLine."Qty. per Unit of Measure", OldReservationEntry, TransferQty);
until (OldReservationEntry.Next() = 0) or (TransferQty = 0);
end;
end;
procedure BindToTracking(AssemblyLine: Record "Assembly Line"; TrackingSpecification: Record "Tracking Specification"; Description: Text[100]; ExpectedDate: Date; ReservQty: Decimal; ReservQtyBase: Decimal)
begin
SetBinding("Reservation Binding"::"Order-to-Order");
CreateReservationSetFrom(TrackingSpecification);
CreateBindingReservation(AssemblyLine, Description, ExpectedDate, ReservQty, ReservQtyBase);
end;
[EventSubscriber(ObjectType::Page, PAGE::Reservation, 'OnGetQtyPerUOMFromSourceRecRef', '', false, false)]
local procedure OnGetQtyPerUOMFromSourceRecRef(SourceRecRef: RecordRef; var QtyPerUOM: Decimal; var QtyReserved: Decimal; var QtyReservedBase: Decimal; var QtyToReserve: Decimal; var QtyToReserveBase: Decimal)
var
AssemblyLine: Record "Assembly Line";
begin
if MatchThisTable(SourceRecRef.Number) then begin
SourceRecRef.SetTable(AssemblyLine);
AssemblyLine.Find();
QtyPerUOM := AssemblyLine.GetReservationQty(QtyReserved, QtyReservedBase, QtyToReserve, QtyToReserveBase);
end;
end;
local procedure SetReservSourceFor(SourceRecordRef: RecordRef; var ReservationEntry: Record "Reservation Entry"; var CaptionText: Text)
var
AssemblyLine: Record "Assembly Line";
begin
SourceRecordRef.SetTable(AssemblyLine);
AssemblyLine.TestField(Type, AssemblyLine.Type::Item);
AssemblyLine.TestField("Due Date");
AssemblyLine.SetReservationEntry(ReservationEntry);
CaptionText := AssemblyLine.GetSourceCaption();
end;
local procedure EntryStartNo(): Integer
begin
exit(Enum::"Reservation Summary Type"::"Assembly Quote Line".AsInteger());
end;
local procedure MatchThisEntry(EntryNo: Integer): Boolean
begin
exit(EntryNo in [Enum::"Reservation Summary Type"::"Assembly Quote Line".AsInteger(),
Enum::"Reservation Summary Type"::"Assembly Order Line".AsInteger()]);
end;
local procedure MatchThisTable(TableID: Integer): Boolean
begin
exit(TableID = Database::"Assembly Line");
end;
[EventSubscriber(ObjectType::Page, Page::Reservation, 'OnSetReservSource', '', false, false)]
local procedure ReservationOnSetReservSource(SourceRecRef: RecordRef; var ReservEntry: Record "Reservation Entry"; var CaptionText: Text)
begin
if MatchThisTable(SourceRecRef.Number) then
SetReservSourceFor(SourceRecRef, ReservEntry, CaptionText);
end;
[EventSubscriber(ObjectType::Page, Page::Reservation, 'OnDrillDownTotalQuantity', '', false, false)]
local procedure ReservationOnDrillDownTotalQuantity(SourceRecRef: RecordRef; ReservEntry: Record "Reservation Entry"; EntrySummary: Record "Entry Summary"; Location: Record Location; MaxQtyToReserve: Decimal)
var
AvailableAssemblyLines: page "Available - Assembly Lines";
begin
if EntrySummary."Entry No." in [151, 152] then begin
Clear(AvailableAssemblyLines);
AvailableAssemblyLines.SetCurrentSubType(EntrySummary."Entry No." - EntryStartNo());
AvailableAssemblyLines.SetSource(SourceRecRef, ReservEntry, ReservEntry.GetTransferDirection());
AvailableAssemblyLines.RunModal();
end;
end;
[EventSubscriber(ObjectType::Page, Page::Reservation, 'OnFilterReservEntry', '', false, false)]
local procedure ReservationOnFilterReservEntry(var FilterReservEntry: Record "Reservation Entry"; ReservEntrySummary: Record "Entry Summary")
begin
if MatchThisEntry(ReservEntrySummary."Entry No.") then begin
FilterReservEntry.SetRange("Source Type", Database::"Assembly Line");
FilterReservEntry.SetRange("Source Subtype", ReservEntrySummary."Entry No." - EntryStartNo());
end;
end;
[EventSubscriber(ObjectType::Page, Page::Reservation, 'OnAfterRelatesToSummEntry', '', false, false)]
local procedure ReservationOnRelatesToEntrySummary(var FilterReservEntry: Record "Reservation Entry"; FromEntrySummary: Record "Entry Summary"; var IsHandled: Boolean)
begin
if MatchThisEntry(FromEntrySummary."Entry No.") then
IsHandled :=
(FilterReservEntry."Source Type" = Database::"Assembly Line") and
(FilterReservEntry."Source Subtype" = FromEntrySummary."Entry No." - EntryStartNo());
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Item Ledger Entry-Reserve", 'OnDrillDownTotalQuantity', '', false, false)]
local procedure ItemLedgerEntryOnDrillDownTotalQuantity(SourceRecRef: RecordRef; EntrySummary: Record "Entry Summary" temporary; ReservEntry: Record "Reservation Entry"; Location: Record Location; MaxQtyToReserve: Decimal; var IsHandled: Boolean; sender: Codeunit "Item Ledger Entry-Reserve")
begin
if MatchThisTable(ReservEntry."Source Type") then begin
sender.DrillDownTotalQuantity(SourceRecRef, EntrySummary, ReservEntry, MaxQtyToReserve);
IsHandled := true;
end;
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnCreateReservation', '', false, false)]
local procedure OnCreateReservation(SourceRecRef: RecordRef; TrackingSpecification: Record "Tracking Specification"; ForReservEntry: Record "Reservation Entry"; Description: Text[100]; ExpectedDate: Date; Quantity: Decimal; QuantityBase: Decimal)
var
AssemblyLine: Record "Assembly Line";
begin
if MatchThisTable(ForReservEntry."Source Type") then begin
CreateReservationSetFrom(TrackingSpecification);
SourceRecRef.SetTable(AssemblyLine);
CreateReservation(AssemblyLine, Description, ExpectedDate, Quantity, QuantityBase, ForReservEntry);
end;
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnLookupDocument', '', false, false)]
local procedure OnLookupDocument(SourceType: Integer; SourceSubtype: Integer; SourceID: Code[20])
var
AssemblyHeader: Record "Assembly Header";
begin
if MatchThisTable(SourceType) then begin
AssemblyHeader.Reset();
AssemblyHeader.SetRange("Document Type", SourceSubtype);
AssemblyHeader.SetRange("No.", SourceID);
case SourceSubtype of
0:
;
1:
PAGE.RunModal(PAGE::"Assembly Order", AssemblyHeader);
5:
;
end;
end;
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnLookupLine', '', false, false)]
local procedure OnLookupLine(SourceType: Integer; SourceSubtype: Integer; SourceID: Code[20]; SourceRefNo: Integer)
var
AssemblyLine: Record "Assembly Line";
begin
if MatchThisTable(SourceType) then begin
AssemblyLine.Reset();
AssemblyLine.SetRange("Document Type", SourceSubtype);
AssemblyLine.SetRange("Document No.", SourceID);
AssemblyLine.SetRange("Line No.", SourceRefNo);
PAGE.Run(PAGE::"Assembly Lines", AssemblyLine);
end;
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnFilterReservFor', '', false, false)]
local procedure OnFilterReservFor(SourceRecRef: RecordRef; var ReservEntry: Record "Reservation Entry"; var CaptionText: Text)
var
AssemblyLine: Record "Assembly Line";
begin
if MatchThisTable(SourceRecRef.Number) then begin
SourceRecRef.SetTable(AssemblyLine);
AssemblyLine.SetReservationFilters(ReservEntry);
CaptionText := AssemblyLine.GetSourceCaption();
end;
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnCalculateRemainingQty', '', false, false)]
local procedure OnCalculateRemainingQty(SourceRecRef: RecordRef; var ReservEntry: Record "Reservation Entry"; var RemainingQty: Decimal; var RemainingQtyBase: Decimal)
var
AssemblyLine: Record "Assembly Line";
begin
if MatchThisTable(ReservEntry."Source Type") then begin
SourceRecRef.SetTable(AssemblyLine);
AssemblyLine.GetRemainingQty(RemainingQty, RemainingQtyBase);
end;
end;
local procedure GetSourceValue(ReservationEntry: Record "Reservation Entry"; var SourceRecordRef: RecordRef; ReturnOption: Option "Net Qty. (Base)","Gross Qty. (Base)"): Decimal
var
AssemblyLine: Record "Assembly Line";
begin
AssemblyLine.Get(ReservationEntry."Source Subtype", ReservationEntry."Source ID", ReservationEntry."Source Ref. No.");
SourceRecordRef.GetTable(AssemblyLine);
case ReturnOption of
ReturnOption::"Net Qty. (Base)":
exit(AssemblyLine."Remaining Quantity (Base)");
ReturnOption::"Gross Qty. (Base)":
exit(AssemblyLine."Quantity (Base)");
end;
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnGetSourceRecordValue', '', false, false)]
local procedure OnGetSourceRecordValue(var ReservEntry: Record "Reservation Entry"; ReturnOption: Option; var ReturnQty: Decimal; var SourceRecRef: RecordRef)
begin
if MatchThisTable(ReservEntry."Source Type") then
ReturnQty := GetSourceValue(ReservEntry, SourceRecRef, ReturnOption);
end;
local procedure UpdateStatistics(CalcReservationEntry: Record "Reservation Entry"; var TempEntrySummary: Record "Entry Summary" temporary; AvailabilityDate: Date; DocumentType: Option; Positive: Boolean; var TotalQuantity: Decimal)
var
AssemblyLine: Record "Assembly Line";
AvailabilityFilter: Text;
begin
if not AssemblyLine.ReadPermission then
exit;
AssemblyLine.SetAutoCalcFields("Reserved Qty. (Base)");
AvailabilityFilter := CalcReservationEntry.GetAvailabilityFilter(AvailabilityDate, Positive);
AssemblyLine.FilterLinesForReservation(CalcReservationEntry, DocumentType, AvailabilityFilter, Positive);
if AssemblyLine.FindSet() then
repeat
TempEntrySummary."Total Reserved Quantity" -= AssemblyLine."Reserved Qty. (Base)";
TotalQuantity += AssemblyLine."Remaining Quantity (Base)";
until AssemblyLine.Next() = 0;
if TotalQuantity = 0 then
exit;
if TotalQuantity < 0 = Positive then begin
TempEntrySummary."Table ID" := Database::"Assembly Line";
TempEntrySummary."Summary Type" :=
CopyStr(StrSubstNo(SummaryTypeTxt, AssemblyLine.TableCaption(), AssemblyLine."Document Type"),
1, MaxStrLen(TempEntrySummary."Summary Type"));
TempEntrySummary."Total Quantity" := -TotalQuantity;
TempEntrySummary."Total Available Quantity" := TempEntrySummary."Total Quantity" - TempEntrySummary."Total Reserved Quantity";
if not TempEntrySummary.Insert() then
TempEntrySummary.Modify();
end;
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnUpdateStatistics', '', false, false)]
local procedure OnUpdateStatistics(CalcReservEntry: Record "Reservation Entry"; var ReservSummEntry: Record "Entry Summary"; AvailabilityDate: Date; Positive: Boolean; var TotalQuantity: Decimal)
begin
if ReservSummEntry."Entry No." in [151, 152] then
UpdateStatistics(
CalcReservEntry, ReservSummEntry, AvailabilityDate, ReservSummEntry."Entry No." - 151, Positive, TotalQuantity);
end;
[EventSubscriber(ObjectType::Page, Page::"Reservation Entries", 'OnLookupReserved', '', false, false)]
local procedure OnLookupReserved(var ReservationEntry: Record "Reservation Entry")
begin
if MatchThisTable(ReservationEntry."Source Type") then
ShowSourceLines(ReservationEntry);
end;
local procedure ShowSourceLines(var ReservationEntry: Record "Reservation Entry")
var
AssemblyLine: Record "Assembly Line";
begin
AssemblyLine.SetRange("Document Type", ReservationEntry."Source Subtype");
AssemblyLine.SetRange("Document No.", ReservationEntry."Source ID");
AssemblyLine.SetRange("Line No.", ReservationEntry."Source Ref. No.");
PAGE.RunModal(Page::"Assembly Lines", AssemblyLine);
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnAfterAutoReserveOneLine', '', false, false)]
local procedure OnAfterAutoReserveOneLine(ReservSummEntryNo: Integer; var RemainingQtyToReserve: Decimal; var RemainingQtyToReserveBase: Decimal; Description: Text[100]; AvailabilityDate: Date; Search: Text[1]; NextStep: Integer; CalcReservEntry: Record "Reservation Entry"; CalcReservEntry2: Record "Reservation Entry"; Positive: Boolean; var sender: Codeunit "Reservation Management")
begin
if MatchThisEntry(ReservSummEntryNo) then
AutoReserveAssemblyLine(
CalcReservEntry, sender, ReservSummEntryNo, RemainingQtyToReserve, RemainingQtyToReserveBase,
Description, AvailabilityDate, Search, NextStep, Positive);
end;
local procedure AutoReserveAssemblyLine(var CalcReservEntry: Record "Reservation Entry"; var sender: Codeunit "Reservation Management"; ReservSummEntryNo: Integer; var RemainingQtyToReserve: Decimal; var RemainingQtyToReserveBase: Decimal; Description: Text[100]; AvailabilityDate: Date; Search: Text[1]; NextStep: Integer; Positive: Boolean)
var
CallTrackingSpecification: Record "Tracking Specification";
AssemblyLine: Record "Assembly Line";
QtyThisLine: Decimal;
QtyThisLineBase: Decimal;
ReservQty: Decimal;
IsReserved: Boolean;
begin
IsReserved := false;
OnBeforeAutoReserveAssemblyLine(
ReservSummEntryNo, RemainingQtyToReserve, RemainingQtyToReserve, Description, AvailabilityDate, IsReserved, Search, NextStep, CalcReservEntry);
if IsReserved then
exit;
AssemblyLine.SetAutoCalcFields("Reserved Qty. (Base)");
AssemblyLine.FilterLinesForReservation(
CalcReservEntry, ReservSummEntryNo - Enum::"Reservation Summary Type"::"Assembly Quote Line".AsInteger(),
sender.GetAvailabilityFilter(AvailabilityDate), Positive);
if AssemblyLine.Find(Search) then
repeat
QtyThisLine := AssemblyLine."Remaining Quantity";
QtyThisLineBase := AssemblyLine."Remaining Quantity (Base)";
ReservQty := AssemblyLine."Reserved Qty. (Base)";
if Positive = (QtyThisLineBase > 0) then begin
QtyThisLine := 0;
QtyThisLineBase := 0;
end;
sender.SetQtyToReserveDownToTrackedQuantity(CalcReservEntry, AssemblyLine.RowID1(), QtyThisLine, QtyThisLineBase);
CallTrackingSpecification.InitTrackingSpecification(
Database::"Assembly Line", AssemblyLine."Document Type".AsInteger(), AssemblyLine."Document No.", '', 0, AssemblyLine."Line No.",
AssemblyLine."Variant Code", AssemblyLine."Location Code", AssemblyLine."Qty. per Unit of Measure");
CallTrackingSpecification.CopyTrackingFromReservEntry(CalcReservEntry);
sender.InsertReservationEntries(
RemainingQtyToReserve, RemainingQtyToReserveBase, ReservQty,
Description, AssemblyLine."Due Date", QtyThisLine, QtyThisLineBase, CallTrackingSpecification);
until (AssemblyLine.Next(NextStep) = 0) or (RemainingQtyToReserveBase = 0);
end;
[IntegrationEvent(false, false)]
local procedure OnVerifyChangeOnBeforeHasError(NewAssemblyLine: Record "Assembly Line"; OldAssemblyLine: Record "Assembly Line"; var HasError: Boolean; var ShowError: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnCallItemTrackingOnBeforeItemTrackingLinesRunModal(var AssemblyLine: Record "Assembly Line"; var ItemTrackingLines: Page "Item Tracking Lines")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeCreateReservation(AssemblyLine: Record "Assembly Line"; Description: Text[100]; ExpectedReceiptDate: Date; Quantity: Decimal; QuantityBase: Decimal; ForReservationEntry: Record "Reservation Entry"; FromTrackingSpecification: Record "Tracking Specification"; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeAutoReserveAssemblyLine(ReservSummEntryNo: Integer; var RemainingQtyToReserve: Decimal; var RemainingQtyToReserveBase: Decimal; Description: Text[100]; AvailabilityDate: Date; var IsReserved: Boolean; Search: Text[1]; NextStep: Integer; CalcReservEntry: Record "Reservation Entry")
begin
end;
#if not CLEAN27
[Obsolete('This event is never raised.', '27.0')]
[IntegrationEvent(false, false)]
local procedure OnSetSourceForReservationOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; AssemblyLine: Record "Assembly Line")
begin
end;
#endif
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnAutoReserveOnBeforeStopReservation', '', false, false)]
local procedure OnAutoReserveOnBeforeStopReservation(var CalcReservEntry: Record "Reservation Entry"; var StopReservation: Boolean);
begin
if MatchThisTable(CalcReservEntry."Source Type") then
StopReservation := not (CalcReservEntry."Source Subtype" = 1); // Only Assembly Order
end;
// codeunit Create Reserv. Entry
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Reserv. Entry", 'OnCheckSourceTypeSubtype', '', false, false)]
local procedure CheckSourceTypeSubtype(var ReservationEntry: Record "Reservation Entry"; var IsError: Boolean)
begin
if MatchThisTable(ReservationEntry."Source Type") then
IsError := not (ReservationEntry."Source Subtype" = 1); // Only Assembly Order supported
end;
// codeunit Reservation Engine Mgt. subscribers
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Engine Mgt.", 'OnGetActivePointerFieldsOnBeforeAssignArrayValues', '', false, false)]
local procedure OnGetActivePointerFieldsOnBeforeAssignArrayValues(TableID: Integer; var PointerFieldIsActive: array[6] of Boolean; var IsHandled: Boolean)
begin
if TableID = Database::"Assembly Line" then begin
PointerFieldIsActive[1] := true; // Type
PointerFieldIsActive[2] := true; // SubType
PointerFieldIsActive[3] := true; // ID
PointerFieldIsActive[6] := true; // RefNo
end;
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Engine Mgt.", 'OnCreateText', '', false, false)]
local procedure OnAfterCreateText(ReservationEntry: Record "Reservation Entry"; var Description: Text[80])
var
AssemblyLine: Record "Assembly Line";
begin
if ReservationEntry."Source Type" = Database::"Assembly Line" then
Description :=
StrSubstNo(
SourceDoc3Txt, AssemblyLine.TableCaption(),
Enum::"Assembly Document Type".FromInteger(ReservationEntry."Source Subtype"), ReservationEntry."Source ID");
end;
procedure InitFromAsmLine(var TransactionSpecification: Record "Tracking Specification"; var AsmLine: Record "Assembly Line")
begin
TransactionSpecification.Init();
TransactionSpecification.SetItemData(
AsmLine."No.", AsmLine.Description, AsmLine."Location Code", AsmLine."Variant Code", AsmLine."Bin Code",
AsmLine."Qty. per Unit of Measure", AsmLine."Qty. Rounding Precision (Base)");
TransactionSpecification.SetSource(
Database::"Assembly Line", AsmLine."Document Type".AsInteger(), AsmLine."Document No.", AsmLine."Line No.", '', 0);
TransactionSpecification.SetQuantities(
AsmLine."Quantity (Base)", AsmLine."Quantity to Consume", AsmLine."Quantity to Consume (Base)",
AsmLine."Quantity to Consume", AsmLine."Quantity to Consume (Base)",
AsmLine."Consumed Quantity (Base)", AsmLine."Consumed Quantity (Base)");
OnAfterInitFromAsmLine(TransactionSpecification, AsmLine);
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnTestItemType', '', false, false)]
local procedure OnTestItemType(SourceRecRef: RecordRef)
var
AssemblyLine: Record "Assembly Line";
begin
if SourceRecRef.Number = Database::"Assembly Line" then begin
SourceRecRef.SetTable(AssemblyLine);
AssemblyLine.TestField(Type, AssemblyLine.Type::Item);
end;
end;
[IntegrationEvent(false, false)]
local procedure OnAfterInitFromAsmLine(var TrackingSpecification: Record "Tracking Specification"; AssemblyLine: Record "Assembly Line")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnCreateReservationOnBeforeCreateReservEntry(var AssemblyLine: Record "Assembly Line"; var Quantity: Decimal; var QuantityBase: Decimal; var ReservationEntry: Record "Reservation Entry"; var FromTrackingSpecification: Record "Tracking Specification"; var IsHandled: Boolean; ExpectedReceiptDate: Date; Description: Text[100]; ShipmentDate: Date)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnTransferAsmLineToItemJnlLineOnBeforeTransferReservationEntry(var ReservationEntry: Record "Reservation Entry"; var AssemblyLine: Record "Assembly Line"; var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean)
begin
end;
[EventSubscriber(ObjectType::Table, Database::"Reservation Entry", 'OnAfterSummEntryNo', '', false, false)]
local procedure OnBeforeSummEntryNo(ReservationEntry: Record "Reservation Entry"; var ReturnValue: Integer)
begin
if MatchThisTable(ReservationEntry."Source Type") then
ReturnValue := Enum::"Reservation Summary Type"::"Assembly Quote Line".AsInteger() + ReservationEntry."Source Subtype";
end;
[EventSubscriber(ObjectType::Table, Database::"Requisition Line", 'OnReserveBindingOrder', '', false, false)]
local procedure OnReserveBindingOrder(var RequisitionLine: Record "Requisition Line"; TrackingSpecification: Record "Tracking Specification"; SourceDescription: Text[100]; ExpectedDate: Date; ReservQty: Decimal; ReservQtyBase: Decimal; UpdateReserve: Boolean)
begin
if RequisitionLine."Demand Type" = Database::"Assembly Line" then
AssemblyLineBindToTracking(RequisitionLine, TrackingSpecification, SourceDescription, ExpectedDate, ReservQty, ReservQtyBase, UpdateReserve);
end;
local procedure AssemblyLineBindToTracking(RequisitionLine: Record "Requisition Line"; TrackingSpecification: Record "Tracking Specification"; Description: Text[100]; ExpectedDate: Date; ReservQty: Decimal; ReservQtyBase: Decimal; UpdateReserve: Boolean)
var
AssemblyLine: Record "Assembly Line";
begin
AssemblyLine.Get(RequisitionLine."Demand Subtype", RequisitionLine."Demand Order No.", RequisitionLine."Demand Line No.");
BindToTracking(AssemblyLine, TrackingSpecification, Description, ExpectedDate, ReservQty, ReservQtyBase);
if UpdateReserve then
if AssemblyLine.Reserve = AssemblyLine.Reserve::Never then begin
AssemblyLine.Reserve := AssemblyLine.Reserve::Optional;
AssemblyLine.Modify();
end;
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::OrderTrackingManagement, 'OnSetSourceRecord', '', false, false)]
local procedure OrderTrackingManagementOnSetSourceRecord(var SourceRecordVar: Variant; var ReservationEntry: Record "Reservation Entry"; var ItemLedgerEntry2: Record "Item Ledger Entry")
var
AssemblyLine: Record "Assembly Line";
SourceRecRef: RecordRef;
begin
SourceRecRef.GetTable(SourceRecordVar);
if MatchThisTable(SourceRecRef.Number) then begin
AssemblyLine := SourceRecordVar;
SetAssemblyLine(AssemblyLine, ReservationEntry, ItemLedgerEntry2);
end;
end;
local procedure SetAssemblyLine(var AssemblyLine: Record "Assembly Line"; var ReservEntry: Record "Reservation Entry"; var ItemLedgerEntry: Record "Item Ledger Entry")
begin
ReservEntry.InitSortingAndFilters(false);
AssemblyLine.SetReservationFilters(ReservEntry);
if AssemblyLine."Consumed Quantity (Base)" <> 0 then begin
ItemLedgerEntry.SetCurrentKey("Order Type", "Order No.");
ItemLedgerEntry.SetRange("Order Type", ItemLedgerEntry."Order Type"::Assembly);
ItemLedgerEntry.SetRange("Order No.", AssemblyLine."No.");
ItemLedgerEntry.SetRange("Order Line No.", AssemblyLine."Line No.");
if ItemLedgerEntry.Find('-') then
repeat
ItemLedgerEntry.Mark(true);
until ItemLedgerEntry.Next() = 0;
end;
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::OrderTrackingManagement, 'OnInsertOrderTrackingEntry', '', false, false)]
local procedure OnInsertOrderTrackingEntry(var OrderTrackingEntry: Record "Order Tracking Entry")
var
AssemblyLine: Record "Assembly Line";
begin
if OrderTrackingEntry."For Type" = DATABASE::"Assembly Line" then
if AssemblyLine.Get(OrderTrackingEntry."For Subtype", OrderTrackingEntry."For ID", OrderTrackingEntry."For Ref. No.") then begin
OrderTrackingEntry."Starting Date" := AssemblyLine."Due Date";
OrderTrackingEntry."Ending Date" := AssemblyLine."Due Date";
end;
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::OrderTrackingManagement, 'OnDerivePlanningFilterOnSetToReservationFilter', '', false, false)]
local procedure OnDerivePlanningFilterOnSetToReservationFilter(var ToReservEntry: Record "Reservation Entry"; FilterPlanningComponent: Record "Planning Component")
begin
case FilterPlanningComponent."Ref. Order Type" of
FilterPlanningComponent."Ref. Order Type"::Assembly:
ToReservEntry.SetSourceFilter(
DATABASE::"Assembly Line", FilterPlanningComponent."Ref. Order Status".AsInteger(),
FilterPlanningComponent."Ref. Order No.", FilterPlanningComponent."Line No.", true);
end;
end;
procedure TransferPlanningCompToAsmLine(var OldPlanningComponent: Record "Planning Component"; var NewAssemblyLine: Record "Assembly Line"; TransferQty: Decimal; TransferAll: Boolean)
var
OldReservationEntry: Record "Reservation Entry";
PlngComponentReserve: Codeunit "Plng. Component-Reserve";
begin
if not PlngComponentReserve.FindReservEntry(OldPlanningComponent, OldReservationEntry) then
exit;
NewAssemblyLine.TestItemFields(
OldPlanningComponent."Item No.", OldPlanningComponent."Variant Code", OldPlanningComponent."Location Code");
PlngComponentReserve.TransferReservations(
OldPlanningComponent, OldReservationEntry, TransferAll, TransferQty, NewAssemblyLine."Qty. per Unit of Measure",
DATABASE::"Assembly Line", NewAssemblyLine."Document Type".AsInteger(), NewAssemblyLine."Document No.",
'', 0, NewAssemblyLine."Line No.");
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnSetSourceForAssemblyLine', '', false, false)]
local procedure OnSetSourceForAssemblyLine(SourceRecRef: RecordRef; var CalcReservEntry: Record "Reservation Entry"; var EntryIsPositive: Boolean)
var
AssemblyLine: Record "Assembly Line";
begin
if not MatchThisTable(SourceRecRef.Number) then
exit;
SourceRecRef.SetTable(AssemblyLine);
AssemblyLine.SetReservationEntry(CalcReservEntry);
OnSetAssemblyLineOnBeforeUpdateReservation(CalcReservEntry, AssemblyLine);
EntryIsPositive := ((CreateReservEntry.SignFactor(CalcReservEntry) * AssemblyLine."Remaining Quantity (Base)") <= 0);
end;
[IntegrationEvent(false, false)]
local procedure OnSetAssemblyLineOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line")
begin
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnGetDocumentReservationDeleteQstOnElseCase', '', false, false)]
local procedure OnGetDocumentReservationDeleteQstOnElseCase(RecRef: RecordRef; FldRef: FieldRef; DocType: Integer; var DocTypeCaption: Text; DocNo: Code[20]; var IsHandled: Boolean)
begin
case RecRef.Number of
Database::"Assembly Line":
case DocType of
Enum::"Assembly Document Type"::Quote.AsInteger(),
Enum::"Assembly Document Type"::"Order".AsInteger():
DocTypeCaption := StrSubstNo(DeleteDocLineWithItemReservQst, SelectStr(DocType + 1, FldRef.OptionCaption), DocNo);
Enum::"Assembly Document Type"::"Blanket Order".AsInteger():
DocTypeCaption := StrSubstNo(DeleteDocLineWithItemReservQst, SelectStr(3, FldRef.OptionCaption), DocNo);
end;
end;
end;
[IntegrationEvent(false, false)]
local procedure OnDeleteLineOnBeforeDeleteReservationEntries(AssemblyLine: Record "Assembly Line")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnVerifyQuantityOnBeforeDeleteReservationEntries(var NewAssemblyLine: Record "Assembly Line")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnTransferAsmLineToAsmLineOnBeforeTransferReservationEntry(var OldAssemblyLine: Record "Assembly Line"; var NewAssemblyLine: Record "Assembly Line"; var OldReservationEntry: Record "Reservation Entry")
begin
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Req. Wksh.-Make Order", 'OnReserveBindingOrderToPurch', '', false, false)]
local procedure OnReserveBindingOrderToPurch(var RequisitionLine: Record "Requisition Line"; var PurchaseLine: Record "Purchase Line"; ReservQty: Decimal; ReservQtyBase: Decimal)
var
AssemblyLine: Record "Assembly Line";
TrackingSpecification: Record "Tracking Specification";
begin
case RequisitionLine."Demand Type" of
Database::"Assembly Line":
begin
AssemblyLine.Get(RequisitionLine."Demand Subtype", RequisitionLine."Demand Order No.", RequisitionLine."Demand Line No.");
TrackingSpecification.InitTrackingSpecification(
Database::"Purchase Line", PurchaseLine."Document Type".AsInteger(), PurchaseLine."Document No.", '', 0, PurchaseLine."Line No.",
PurchaseLine."Variant Code", PurchaseLine."Location Code", PurchaseLine."Qty. per Unit of Measure");
BindToTracking(
AssemblyLine, TrackingSpecification, PurchaseLine.Description, PurchaseLine."Expected Receipt Date", ReservQty, ReservQtyBase);
if AssemblyLine.Reserve = AssemblyLine.Reserve::Never then begin
AssemblyLine.Reserve := AssemblyLine.Reserve::Optional;
AssemblyLine.Modify();
end;
end;
end;
end;
}