Skip to content

KVSFCYItemTrackingLines#

Procedures#

InsertRecord(Record Tracking Specification) :#

procedure InsertRecord(var TempTrackingSpecification: Record "Tracking Specification" temporary): 

SetFormRunMode(Option) :#

procedure SetFormRunMode(Mode: Option): 

GetFormRunMode(Option) :#

procedure GetFormRunMode(var Mode: Option): 

SetSourceSpec(Record Tracking Specification, Date) :#

procedure SetSourceSpec(TrackingSpecification: Record "Tracking Specification"; AvailabilityDate: Date): 

SetSecondSourceQuantity(Decimal) :#

procedure SetSecondSourceQuantity(SecondSourceQuantityArray: Decimal): 

SetSecondSourceRowID(Text[250]) :#

procedure SetSecondSourceRowID(RowID: Text[250]): 

CalculateSums() :#

procedure CalculateSums(): 

UpdateUndefinedQty() : Boolean#

procedure UpdateUndefinedQty(): Boolean

EntriesAreIdentical(Record Reservation Entry, Record Reservation Entry, Boolean) : Boolean#

procedure EntriesAreIdentical(var ReservEntry1: Record "Reservation Entry"; var ReservEntry2: Record "Reservation Entry"; var IdenticalArray: Boolean): Boolean

NextEntryNo() : Integer#

procedure NextEntryNo(): Integer

WriteToDatabase() :#

procedure WriteToDatabase(): 

ZeroLineExists() : Boolean#

procedure ZeroLineExists(): Boolean

TestTempSpecificationExists() : Boolean#

procedure TestTempSpecificationExists(): Boolean

RegisterItemTrackingLines(Record Tracking Specification, Date, Record Tracking Specification) :#

procedure RegisterItemTrackingLines(SourceSpecification: Record "Tracking Specification"; AvailabilityDate: Date; var TempTrackingSpecification: Record "Tracking Specification" temporary): 

SynchronizeLinkedSources(Text[250]) : Boolean#

procedure SynchronizeLinkedSources(DialogText: Text[250]): Boolean

SetBlockCommit(Boolean) :#

procedure SetBlockCommit(NewBlockCommit: Boolean): 

SetCalledFromSynchWhseItemTrkg(Boolean) :#

procedure SetCalledFromSynchWhseItemTrkg(CalledFromSynchWhseItemTrkg2: Boolean): 

SetInbound(Boolean) :#

procedure SetInbound(NewInbound: Boolean): 

SetDirectTransfer(Boolean) :#

procedure SetDirectTransfer(IsDirectTransfer2: Boolean): 

SerialNoOnAfterValidate() :#

procedure SerialNoOnAfterValidate(): 

LotNoOnAfterValidate() :#

procedure LotNoOnAfterValidate(): 

QuantityBaseOnAfterValidate() :#

procedure QuantityBaseOnAfterValidate(): 

QuantityBaseOnValidate() :#

procedure QuantityBaseOnValidate(): 

QtytoHandleBaseOnAfterValidate() :#

procedure QtytoHandleBaseOnAfterValidate(): 

QtytoInvoiceBaseOnAfterValidat() :#

procedure QtytoInvoiceBaseOnAfterValidat(): 

GetEditableSettings(Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean) :#

procedure GetEditableSettings(var ItemNoEditable2: Boolean; var VariantCodeEditable2: Boolean; var LocationCodeEditable2: Boolean; var QtyToHandleBaseEditable2: Boolean; var QtyToInvoiceBaseEditable2: Boolean; var QuantityBaseEditable2: Boolean; var SerialNoEditable2: Boolean; var LotNoEditable2: Boolean; var DescriptionEditable2: Boolean; var NewSerialNoEditable2: Boolean; var NewLotNoEditable2: Boolean; var NewExpirationDateEditable2: Boolean; var ExpirationDateEditable2: Boolean; var WarrantyDateEditable2: Boolean): 

GetVisibleSettings(Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean) :#

procedure GetVisibleSettings(var Handle1Visible2: Boolean; var Handle2Visible2: Boolean; var Handle3Visible2: Boolean; var QtyToHandleBaseVisible2: Boolean; var Invoice1Visible2: Boolean; var Invoice2Visible2: Boolean; var Invoice3Visible2: Boolean; var QtyToInvoiceBaseVisible2: Boolean; var NewSerialNoVisible2: Boolean; var NewLotNoVisible2: Boolean; var NewExpirationDateVisible2: Boolean; var ButtonLineReclassVisible2: Boolean; var ButtonLineVisible2: Boolean; var FunctionsSupplyVisible2: Boolean; var FunctionsDemandVisible2: Boolean; var Inbound2: Boolean; var InboundIsSet2: Boolean): 

GetVariables(Record Tracking Specification, Record Tracking Specification, Record Tracking Specification, Record Item, Decimal, Decimal, Integer, Boolean, Boolean, Boolean) :#

procedure GetVariables(var TempTrackingSpecInsert2: Record "Tracking Specification" temporary; var TempTrackingSpecModify2: Record "Tracking Specification" temporary; var TempTrackingSpecDelete2: Record "Tracking Specification" temporary; var Item2: Record "Item"; var UndefinedQtyArray2: Decimal; var SourceQuantityArray2: Decimal; var CurrentSignFactor2: Integer; var InsertIsBlocked2: Boolean; var DeleteIsBlocked2: Boolean; var BlockCommit2: Boolean): 

SetVariables(Record Tracking Specification, Record Tracking Specification, Record Tracking Specification) :#

procedure SetVariables(var TempTrackingSpecInsert2: Record "Tracking Specification" temporary; var TempTrackingSpecModify2: Record "Tracking Specification" temporary; var TempTrackingSpecDelete2: Record "Tracking Specification" temporary): 

GetTrackingSpec(Record Tracking Specification) :#

procedure GetTrackingSpec(var TempTrackingSpecification: Record "Tracking Specification" temporary): 

SetSecondSourceID(Integer, Boolean) :#

procedure SetSecondSourceID(SourceID: Integer; IsATO: Boolean): 

SynchronizeWarehouseItemTracking() :#

procedure SynchronizeWarehouseItemTracking(): 

IsOrderToOrderBindingToTransfer() : Boolean#

procedure IsOrderToOrderBindingToTransfer(): Boolean

Events#

OnAddReservEntriesToTempRecSetOnAfterTempTrackingSpecificationTransferFields(Record Tracking Specification, Record Reservation Entry) :#

[IntegrationEvent(false, false)]
local procedure OnAddReservEntriesToTempRecSetOnAfterTempTrackingSpecificationTransferFields(var TempTrackingSpecification: Record "Tracking Specification" temporary; var ReservEntry: Record "Reservation Entry"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAddReservEntriesToTempRecSetOnAfterTempTrackingSpecificationTransferFields', '', false, false)]
local procedure DoSomethingOnAddReservEntriesToTempRecSetOnAfterTempTrackingSpecificationTransferFields(var TempTrackingSpecification: Record "Tracking Specification" temporary; var ReservEntry: Record "Reservation Entry")
begin
end;

OnAfterCopyTrackingSpec(Record Tracking Specification, Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCopyTrackingSpec(var SourceTrackingSpec: Record "Tracking Specification"; var DestTrkgSpec: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAfterCopyTrackingSpec', '', false, false)]
local procedure DoSomethingOnAfterCopyTrackingSpec(var SourceTrackingSpec: Record "Tracking Specification"; var DestTrkgSpec: Record "Tracking Specification")
begin
end;

OnAfterClearTrackingSpec(Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnAfterClearTrackingSpec(var OldTrkgSpec: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAfterClearTrackingSpec', '', false, false)]
local procedure DoSomethingOnAfterClearTrackingSpec(var OldTrkgSpec: Record "Tracking Specification")
begin
end;

OnAfterCreateReservEntryFor(Record Tracking Specification, Record Tracking Specification, Codeunit Create Reserv. Entry) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCreateReservEntryFor(var OldTrackingSpecification: Record "Tracking Specification"; var NewTrackingSpecification: Record "Tracking Specification"; var CreateReservEntry: Codeunit "Create Reserv. Entry"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAfterCreateReservEntryFor', '', false, false)]
local procedure DoSomethingOnAfterCreateReservEntryFor(var OldTrackingSpecification: Record "Tracking Specification"; var NewTrackingSpecification: Record "Tracking Specification"; var CreateReservEntry: Codeunit "Create Reserv. Entry")
begin
end;

OnAfterEntriesAreIdentical(Record Reservation Entry, Record Reservation Entry, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnAfterEntriesAreIdentical(ReservEntry1: Record "Reservation Entry"; ReservEntry2: Record "Reservation Entry"; var IdenticalArray: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAfterEntriesAreIdentical', '', false, false)]
local procedure DoSomethingOnAfterEntriesAreIdentical(ReservEntry1: Record "Reservation Entry"; ReservEntry2: Record "Reservation Entry"; var IdenticalArray: Boolean)
begin
end;

OnAfterMoveFields(Record Tracking Specification, Record Reservation Entry) :#

[IntegrationEvent(false, false)]
local procedure OnAfterMoveFields(var TrkgSpec: Record "Tracking Specification"; var ReservEntry: Record "Reservation Entry"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAfterMoveFields', '', false, false)]
local procedure DoSomethingOnAfterMoveFields(var TrkgSpec: Record "Tracking Specification"; var ReservEntry: Record "Reservation Entry")
begin
end;

OnAfterAssignNewTrackingNo(Record Tracking Specification, Record Tracking Specification, Integer) :#

[IntegrationEvent(false, false)]
local procedure OnAfterAssignNewTrackingNo(var TrkgSpec: Record "Tracking Specification"; xTrkgSpec: Record "Tracking Specification"; FieldID: Integer): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAfterAssignNewTrackingNo', '', false, false)]
local procedure DoSomethingOnAfterAssignNewTrackingNo(var TrkgSpec: Record "Tracking Specification"; xTrkgSpec: Record "Tracking Specification"; FieldID: Integer)
begin
end;

OnAfterGetHandleSource(Record Tracking Specification, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnAfterGetHandleSource(TrackingSpecification: Record "Tracking Specification"; var QtyToHandleColumnIsHidden: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAfterGetHandleSource', '', false, false)]
local procedure DoSomethingOnAfterGetHandleSource(TrackingSpecification: Record "Tracking Specification"; var QtyToHandleColumnIsHidden: Boolean)
begin
end;

OnAfterGetInvoiceSource(Record Tracking Specification, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnAfterGetInvoiceSource(TrackingSpecification: Record "Tracking Specification"; var QtyToInvoiceColumnIsHidden: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAfterGetInvoiceSource', '', false, false)]
local procedure DoSomethingOnAfterGetInvoiceSource(TrackingSpecification: Record "Tracking Specification"; var QtyToInvoiceColumnIsHidden: Boolean)
begin
end;

OnAfterRegisterItemTrackingLines(Record Tracking Specification, Record Tracking Specification, Record Tracking Specification, Date) :#

[IntegrationEvent(false, false)]
local procedure OnAfterRegisterItemTrackingLines(var TrackingSpecification: Record "Tracking Specification"; var TempTrackingSpecification: Record "Tracking Specification" temporary; var CurrTrackingSpecification: Record "Tracking Specification"; var AvailabilityDate: Date): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAfterRegisterItemTrackingLines', '', false, false)]
local procedure DoSomethingOnAfterRegisterItemTrackingLines(var TrackingSpecification: Record "Tracking Specification"; var TempTrackingSpecification: Record "Tracking Specification" temporary; var CurrTrackingSpecification: Record "Tracking Specification"; var AvailabilityDate: Date)
begin
end;

OnAfterSetControls(Record Item Tracking Code, Option, Boolean) :#

[IntegrationEvent(true, false)]
local procedure OnAfterSetControls(ItemTrackingCode: Record "Item Tracking Code"; var Controls: Option; var SetAccess: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAfterSetControls', '', false, false)]
local procedure DoSomethingOnAfterSetControls(ItemTrackingCode: Record "Item Tracking Code"; var Controls: Option; var SetAccess: Boolean)
begin
end;

OnAfterSetSourceSpec(Record Tracking Specification, Record Tracking Specification, Date, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnAfterSetSourceSpec(var TrackingSpecification: Record "Tracking Specification"; var CurrTrackingSpecification: Record "Tracking Specification"; var AvailabilityDate: Date; var BlockCommit: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAfterSetSourceSpec', '', false, false)]
local procedure DoSomethingOnAfterSetSourceSpec(var TrackingSpecification: Record "Tracking Specification"; var CurrTrackingSpecification: Record "Tracking Specification"; var AvailabilityDate: Date; var BlockCommit: Boolean)
begin
end;

OnAfterSynchronizeLinkedSources(Option, Integer, Text[250], Text[250]) :#

[IntegrationEvent(false, false)]
local procedure OnAfterSynchronizeLinkedSources(FormRunMode: Option; CurrentSourceType: Integer; CurrentSourceRowID: Text[250]; SecondSourceRowID: Text[250]): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAfterSynchronizeLinkedSources', '', false, false)]
local procedure DoSomethingOnAfterSynchronizeLinkedSources(FormRunMode: Option; CurrentSourceType: Integer; CurrentSourceRowID: Text[250]; SecondSourceRowID: Text[250])
begin
end;

OnAssignLotNoOnAfterInsert(Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnAssignLotNoOnAfterInsert(var TrackingSpecification: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAssignLotNoOnAfterInsert', '', false, false)]
local procedure DoSomethingOnAssignLotNoOnAfterInsert(var TrackingSpecification: Record "Tracking Specification")
begin
end;

OnAssignSerialNoBatchOnAfterInsert(Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnAssignSerialNoBatchOnAfterInsert(var TrackingSpecification: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAssignSerialNoBatchOnAfterInsert', '', false, false)]
local procedure DoSomethingOnAssignSerialNoBatchOnAfterInsert(var TrackingSpecification: Record "Tracking Specification")
begin
end;

OnBeforeAddToGlobalRecordSet(Record Tracking Specification, Boolean, Integer) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAddToGlobalRecordSet(var TrackingSpecification: Record "Tracking Specification"; EntriesExist: Boolean; CurrentSignFactor: Integer): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeAddToGlobalRecordSet', '', false, false)]
local procedure DoSomethingOnBeforeAddToGlobalRecordSet(var TrackingSpecification: Record "Tracking Specification"; EntriesExist: Boolean; CurrentSignFactor: Integer)
begin
end;

OnBeforeAssignNewLotNo(Record Tracking Specification, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAssignNewLotNo(var TrackingSpecification: Record "Tracking Specification"; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeAssignNewLotNo', '', false, false)]
local procedure DoSomethingOnBeforeAssignNewLotNo(var TrackingSpecification: Record "Tracking Specification"; var IsHandled: Boolean)
begin
end;

OnBeforeClosePage(Record Tracking Specification, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeClosePage(var TrackingSpecification: Record "Tracking Specification"; var SkipWriteToDatabase: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeClosePage', '', false, false)]
local procedure DoSomethingOnBeforeClosePage(var TrackingSpecification: Record "Tracking Specification"; var SkipWriteToDatabase: Boolean)
begin
end;

OnBeforeDeleteRecord(Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeDeleteRecord(var TrackingSpecification: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeDeleteRecord', '', false, false)]
local procedure DoSomethingOnBeforeDeleteRecord(var TrackingSpecification: Record "Tracking Specification")
begin
end;

OnBeforeLotNoAssistEdit(Record Tracking Specification, Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeLotNoAssistEdit(var TrackingSpecification: Record "Tracking Specification"; xTrackingSpecification: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeLotNoAssistEdit', '', false, false)]
local procedure DoSomethingOnBeforeLotNoAssistEdit(var TrackingSpecification: Record "Tracking Specification"; xTrackingSpecification: Record "Tracking Specification")
begin
end;

OnBeforeOnModifyRecord(Record Tracking Specification, Record Tracking Specification, Boolean, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeOnModifyRecord(var TrackingSpecification: Record "Tracking Specification"; xTrackingSpecification: Record "Tracking Specification"; InsertIsBlocked: Boolean; var Result: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeOnModifyRecord', '', false, false)]
local procedure DoSomethingOnBeforeOnModifyRecord(var TrackingSpecification: Record "Tracking Specification"; xTrackingSpecification: Record "Tracking Specification"; InsertIsBlocked: Boolean; var Result: Boolean; var IsHandled: Boolean)
begin
end;

OnBeforeRegisterChange(Record Tracking Specification, Record Tracking Specification, Integer, Option, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeRegisterChange(var OldTrackingSpecification: Record "Tracking Specification"; var NewTrackingSpecification: Record "Tracking Specification"; CurrentSignFactor: Integer; FormRunMode: Option; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeRegisterChange', '', false, false)]
local procedure DoSomethingOnBeforeRegisterChange(var OldTrackingSpecification: Record "Tracking Specification"; var NewTrackingSpecification: Record "Tracking Specification"; CurrentSignFactor: Integer; FormRunMode: Option; var IsHandled: Boolean)
begin
end;

OnBeforeSerialNoAssistEdit(Record Tracking Specification, Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeSerialNoAssistEdit(var TrackingSpecification: Record "Tracking Specification"; xTrackingSpecification: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeSerialNoAssistEdit', '', false, false)]
local procedure DoSomethingOnBeforeSerialNoAssistEdit(var TrackingSpecification: Record "Tracking Specification"; xTrackingSpecification: Record "Tracking Specification")
begin
end;

OnBeforeSerialNoOnAfterValidate(Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeSerialNoOnAfterValidate(var TempTrackingSpecification: Record "Tracking Specification" temporary): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeSerialNoOnAfterValidate', '', false, false)]
local procedure DoSomethingOnBeforeSerialNoOnAfterValidate(var TempTrackingSpecification: Record "Tracking Specification" temporary)
begin
end;

OnBeforeSetSourceSpec(Record Tracking Specification, Record Reservation Entry) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeSetSourceSpec(var TrackingSpecification: Record "Tracking Specification"; var ReservationEntry: Record "Reservation Entry"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeSetSourceSpec', '', false, false)]
local procedure DoSomethingOnBeforeSetSourceSpec(var TrackingSpecification: Record "Tracking Specification"; var ReservationEntry: Record "Reservation Entry")
begin
end;

OnBeforeSetSecondSourceQuantity(Decimal) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeSetSecondSourceQuantity(var SecondSourceQuantityArray: Decimal): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeSetSecondSourceQuantity', '', false, false)]
local procedure DoSomethingOnBeforeSetSecondSourceQuantity(var SecondSourceQuantityArray: Decimal)
begin
end;

OnBeforeCollectTempTrackingSpecificationInsert(Record Tracking Specification, Record Item Ledger Entry, Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCollectTempTrackingSpecificationInsert(var TempTrackingSpecification: Record "Tracking Specification" temporary; ItemLedgerEntry: Record "Item Ledger Entry"; var TrackingSpecification: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeCollectTempTrackingSpecificationInsert', '', false, false)]
local procedure DoSomethingOnBeforeCollectTempTrackingSpecificationInsert(var TempTrackingSpecification: Record "Tracking Specification" temporary; ItemLedgerEntry: Record "Item Ledger Entry"; var TrackingSpecification: Record "Tracking Specification")
begin
end;

OnBeforeUpdateTrackingData(Record Tracking Specification, Record Tracking Specification, Record Tracking Specification, Integer, Decimal, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeUpdateTrackingData(var TrackingSpecification: Record "Tracking Specification"; xTrackingSpecification: Record "Tracking Specification"; var TempxTrackingSpec: Record "Tracking Specification" temporary; CurrentSignFactor: Integer; var SourceQuantityArray: Decimal; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeUpdateTrackingData', '', false, false)]
local procedure DoSomethingOnBeforeUpdateTrackingData(var TrackingSpecification: Record "Tracking Specification"; xTrackingSpecification: Record "Tracking Specification"; var TempxTrackingSpec: Record "Tracking Specification" temporary; CurrentSignFactor: Integer; var SourceQuantityArray: Decimal; var IsHandled: Boolean)
begin
end;

OnBeforeUpdateUndefinedQty(Record Tracking Specification, Record Tracking Specification, Decimal, Decimal, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeUpdateUndefinedQty(var TrackingSpecification: Record "Tracking Specification"; var TotalItemTrackingSpecification: Record "Tracking Specification"; var UndefinedQtyArray: Decimal; var SourceQuantityArray: Decimal; var ReturnValue: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeUpdateUndefinedQty', '', false, false)]
local procedure DoSomethingOnBeforeUpdateUndefinedQty(var TrackingSpecification: Record "Tracking Specification"; var TotalItemTrackingSpecification: Record "Tracking Specification"; var UndefinedQtyArray: Decimal; var SourceQuantityArray: Decimal; var ReturnValue: Boolean; var IsHandled: Boolean)
begin
end;

OnBeforeWriteToDatabase(Record Tracking Specification, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeWriteToDatabase(var TrackingSpecification: Record "Tracking Specification"; var CurrentPageIsOpen: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeWriteToDatabase', '', false, false)]
local procedure DoSomethingOnBeforeWriteToDatabase(var TrackingSpecification: Record "Tracking Specification"; var CurrentPageIsOpen: Boolean)
begin
end;

OnAddReservEntriesToTempRecSetOnBeforeInsert(Record Tracking Specification, Record Reservation Entry, Boolean, Integer) :#

[IntegrationEvent(false, false)]
local procedure OnAddReservEntriesToTempRecSetOnBeforeInsert(var TempTrackingSpecification: Record "Tracking Specification" temporary; ReservationEntry: Record "Reservation Entry"; SwapSign: Boolean; Color: Integer): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAddReservEntriesToTempRecSetOnBeforeInsert', '', false, false)]
local procedure DoSomethingOnAddReservEntriesToTempRecSetOnBeforeInsert(var TempTrackingSpecification: Record "Tracking Specification" temporary; ReservationEntry: Record "Reservation Entry"; SwapSign: Boolean; Color: Integer)
begin
end;

OnInsertRecordOnBeforeTempItemTrackLineInsert(Record Tracking Specification, Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnInsertRecordOnBeforeTempItemTrackLineInsert(var TempTrackingSpecificationInsert: Record "Tracking Specification" temporary; var TempTrackingSpecification: Record "Tracking Specification" temporary): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnInsertRecordOnBeforeTempItemTrackLineInsert', '', false, false)]
local procedure DoSomethingOnInsertRecordOnBeforeTempItemTrackLineInsert(var TempTrackingSpecificationInsert: Record "Tracking Specification" temporary; var TempTrackingSpecification: Record "Tracking Specification" temporary)
begin
end;

OnRegisterChangeOnAfterCreateReservEntry(Record Reservation Entry, Record Tracking Specification, Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnRegisterChangeOnAfterCreateReservEntry(var ReservEntry: Record "Reservation Entry"; TrackingSpecification: Record "Tracking Specification"; OldTrackingSpecification: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnRegisterChangeOnAfterCreateReservEntry', '', false, false)]
local procedure DoSomethingOnRegisterChangeOnAfterCreateReservEntry(var ReservEntry: Record "Reservation Entry"; TrackingSpecification: Record "Tracking Specification"; OldTrackingSpecification: Record "Tracking Specification")
begin
end;

OnRegisterChangeOnAfterFullDelete(Record Reservation Entry) :#

[IntegrationEvent(false, false)]
local procedure OnRegisterChangeOnAfterFullDelete(var ReservEntry: Record "Reservation Entry"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnRegisterChangeOnAfterFullDelete', '', false, false)]
local procedure DoSomethingOnRegisterChangeOnAfterFullDelete(var ReservEntry: Record "Reservation Entry")
begin
end;

OnRegisterChangeOnAfterModify(Record Tracking Specification, Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnRegisterChangeOnAfterModify(var NewTrackingSpecification: Record "Tracking Specification"; var OldTrackingSpecification: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnRegisterChangeOnAfterModify', '', false, false)]
local procedure DoSomethingOnRegisterChangeOnAfterModify(var NewTrackingSpecification: Record "Tracking Specification"; var OldTrackingSpecification: Record "Tracking Specification")
begin
end;

OnRegisterChangeOnChangeTypeModifyOnBeforeCheckEntriesAreIdentical(Record Reservation Entry, Record Reservation Entry, Record Tracking Specification, Record Tracking Specification, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnRegisterChangeOnChangeTypeModifyOnBeforeCheckEntriesAreIdentical(var ReservEntry1: Record "Reservation Entry"; var ReservEntry2: Record "Reservation Entry"; var OldTrackingSpecification: Record "Tracking Specification"; var NewTrackingSpecification: Record "Tracking Specification"; var IdenticalArray: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnRegisterChangeOnChangeTypeModifyOnBeforeCheckEntriesAreIdentical', '', false, false)]
local procedure DoSomethingOnRegisterChangeOnChangeTypeModifyOnBeforeCheckEntriesAreIdentical(var ReservEntry1: Record "Reservation Entry"; var ReservEntry2: Record "Reservation Entry"; var OldTrackingSpecification: Record "Tracking Specification"; var NewTrackingSpecification: Record "Tracking Specification"; var IdenticalArray: Boolean)
begin
end;

OnSelectEntriesOnAfterTransferFields(Record Tracking Specification, Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnSelectEntriesOnAfterTransferFields(var TempTrackingSpec: Record "Tracking Specification" temporary; var TrackingSpecification: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnSelectEntriesOnAfterTransferFields', '', false, false)]
local procedure DoSomethingOnSelectEntriesOnAfterTransferFields(var TempTrackingSpec: Record "Tracking Specification" temporary; var TrackingSpecification: Record "Tracking Specification")
begin
end;

OnSetQtyToHandleAndInvoiceOnBeforeReservEntryModify(Record Reservation Entry, Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnSetQtyToHandleAndInvoiceOnBeforeReservEntryModify(var ReservationEntry: Record "Reservation Entry"; TrackingSpecification: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnSetQtyToHandleAndInvoiceOnBeforeReservEntryModify', '', false, false)]
local procedure DoSomethingOnSetQtyToHandleAndInvoiceOnBeforeReservEntryModify(var ReservationEntry: Record "Reservation Entry"; TrackingSpecification: Record "Tracking Specification")
begin
end;

OnSetQtyToHandleAndInvoiceOnBeforeTrackingSpecModify(Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnSetQtyToHandleAndInvoiceOnBeforeTrackingSpecModify(var TrackingSpecification: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnSetQtyToHandleAndInvoiceOnBeforeTrackingSpecModify', '', false, false)]
local procedure DoSomethingOnSetQtyToHandleAndInvoiceOnBeforeTrackingSpecModify(var TrackingSpecification: Record "Tracking Specification")
begin
end;

OnSetSourceSpecOnAfterAssignCurrentEntryStatus(Record Tracking Specification, Option) :#

[IntegrationEvent(false, false)]
local procedure OnSetSourceSpecOnAfterAssignCurrentEntryStatus(var TrackingSpecification: Record "Tracking Specification"; var CurrentEntryStatus: Option): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnSetSourceSpecOnAfterAssignCurrentEntryStatus', '', false, false)]
local procedure DoSomethingOnSetSourceSpecOnAfterAssignCurrentEntryStatus(var TrackingSpecification: Record "Tracking Specification"; var CurrentEntryStatus: Option)
begin
end;

OnWriteToDatabaseOnBeforeRegisterDecrease(Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnWriteToDatabaseOnBeforeRegisterDecrease(var TempTrackingSpecificationModify: Record "Tracking Specification" temporary): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnWriteToDatabaseOnBeforeRegisterDecrease', '', false, false)]
local procedure DoSomethingOnWriteToDatabaseOnBeforeRegisterDecrease(var TempTrackingSpecificationModify: Record "Tracking Specification" temporary)
begin
end;

OnWriteToDatabaseOnBeforeRegisterInsert(Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnWriteToDatabaseOnBeforeRegisterInsert(var TempTrackingSpecificationInsert: Record "Tracking Specification" temporary): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnWriteToDatabaseOnBeforeRegisterInsert', '', false, false)]
local procedure DoSomethingOnWriteToDatabaseOnBeforeRegisterInsert(var TempTrackingSpecificationInsert: Record "Tracking Specification" temporary)
begin
end;

OnAfterUpdateExpDateEditable(Record Tracking Specification, Boolean, Record Item Tracking Code, Boolean, Integer) :#

[IntegrationEvent(false, false)]
local procedure OnAfterUpdateExpDateEditable(var TrackingSpecification: Record "Tracking Specification"; var ExpirationDateEditable: Boolean; var ItemTrackingCode: Record "Item Tracking Code"; var NewExpirationDateEditable: Boolean; CurrentSignFactor: Integer): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnAfterUpdateExpDateEditable', '', false, false)]
local procedure DoSomethingOnAfterUpdateExpDateEditable(var TrackingSpecification: Record "Tracking Specification"; var ExpirationDateEditable: Boolean; var ItemTrackingCode: Record "Item Tracking Code"; var NewExpirationDateEditable: Boolean; CurrentSignFactor: Integer)
begin
end;

OnTestTempSpecificationExistsOnAfterSetFilters(Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnTestTempSpecificationExistsOnAfterSetFilters(var TrackingSpecification: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnTestTempSpecificationExistsOnAfterSetFilters', '', false, false)]
local procedure DoSomethingOnTestTempSpecificationExistsOnAfterSetFilters(var TrackingSpecification: Record "Tracking Specification")
begin
end;

OnRegisterItemTrackingLinesOnAfterReclass(Record Tracking Specification, Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnRegisterItemTrackingLinesOnAfterReclass(var TrackingSpecification: Record "Tracking Specification"; TempTrackingSpecification: Record "Tracking Specification" temporary): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnRegisterItemTrackingLinesOnAfterReclass', '', false, false)]
local procedure DoSomethingOnRegisterItemTrackingLinesOnAfterReclass(var TrackingSpecification: Record "Tracking Specification"; TempTrackingSpecification: Record "Tracking Specification" temporary)
begin
end;

OnRegisterChangeOnChangeTypeInsertOnBeforeInsertReservEntry(Record Tracking Specification, Record Tracking Specification, Record Tracking Specification, Option) :#

[IntegrationEvent(false, false)]
local procedure OnRegisterChangeOnChangeTypeInsertOnBeforeInsertReservEntry(var TrackingSpecification: Record "Tracking Specification"; var OldTrackingSpecification: Record "Tracking Specification"; var NewTrackingSpecification: Record "Tracking Specification"; FormRunMode: Option): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnRegisterChangeOnChangeTypeInsertOnBeforeInsertReservEntry', '', false, false)]
local procedure DoSomethingOnRegisterChangeOnChangeTypeInsertOnBeforeInsertReservEntry(var TrackingSpecification: Record "Tracking Specification"; var OldTrackingSpecification: Record "Tracking Specification"; var NewTrackingSpecification: Record "Tracking Specification"; FormRunMode: Option)
begin
end;

OnWriteToDataOnBeforeCommit(Record Tracking Specification) :#

[IntegrationEvent(false, false)]
local procedure OnWriteToDataOnBeforeCommit(var TrackingSpecification: Record "Tracking Specification"): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnWriteToDataOnBeforeCommit', '', false, false)]
local procedure DoSomethingOnWriteToDataOnBeforeCommit(var TrackingSpecification: Record "Tracking Specification")
begin
end;

OnQueryClosePageOnBeforeConfirmClosePage(Record Tracking Specification, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnQueryClosePageOnBeforeConfirmClosePage(var TrackingSpecification: Record "Tracking Specification"; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnQueryClosePageOnBeforeConfirmClosePage', '', false, false)]
local procedure DoSomethingOnQueryClosePageOnBeforeConfirmClosePage(var TrackingSpecification: Record "Tracking Specification"; var IsHandled: Boolean)
begin
end;

OnBeforeRegisterItemTrackingLines() :#

[IntegrationEvent(true, false)]
local procedure OnBeforeRegisterItemTrackingLines(): 
[EventSubscriber(ObjectType::Page, Page::"KVSFCYItemTrackingLines", 'OnBeforeRegisterItemTrackingLines', '', false, false)]
local procedure DoSomethingOnBeforeRegisterItemTrackingLines()
begin
end;

Protected Variables#

Item#

Type: Record Item

ItemTrackingCode#

Type: Record Item Tracking Code

ApplFromItemEntryVisible#

Type: Boolean

ApplToItemEntryVisible#

Type: Boolean

ButtonLineReclassVisible#

Type: Boolean

ButtonLineVisible#

Type: Boolean

DescriptionEditable#

Type: Boolean

ExpirationDateEditable#

Type: Boolean

FunctionsDemandVisible#

Type: Boolean

FunctionsSupplyVisible#

Type: Boolean

Handle1Visible#

Type: Boolean

Handle2Visible#

Type: Boolean

Handle3Visible#

Type: Boolean

InboundIsSet#

Type: Boolean

Invoice1Visible#

Type: Boolean

Invoice2Visible#

Type: Boolean

Invoice3Visible#

Type: Boolean

ItemNoEditable#

Type: Boolean

LocationCodeEditable#

Type: Boolean

LotNoEditable#

Type: Boolean

NewExpirationDateEditable#

Type: Boolean

NewExpirationDateVisible#

Type: Boolean

NewLotNoEditable#

Type: Boolean

NewLotNoVisible#

Type: Boolean

NewPackageNoEditable#

Type: Boolean

NewPackageNoVisible#

Type: Boolean

NewSerialNoEditable#

Type: Boolean

NewSerialNoVisible#

Type: Boolean

PackageNoEditable#

Type: Boolean

PackageNoVisible#

Type: Boolean

QtyToHandleBaseEditable#

Type: Boolean

QtyToHandleBaseVisible#

Type: Boolean

QtyToInvoiceBaseEditable#

Type: Boolean

QtyToInvoiceBaseVisible#

Type: Boolean

QuantityBaseEditable#

Type: Boolean

SerialNoEditable#

Type: Boolean

VariantCodeEditable#

Type: Boolean

WarrantyDateEditable#

Type: Boolean

SourceQuantityArray#

Type: Decimal

UndefinedQtyArray#

Type: Decimal

CurrentRunMode#

Type: Enum Item Tracking Run Mode

CurrentSourceType#

Type: Integer