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) :#
Obsolete
This Element will be removed or changed with a future Version of the App.
[Obsolete('No longer used, use KVSFCYSetCurrentRunModeReclass instead', '24.3')]
procedure SetDirectTransfer(IsDirectTransfer2: Boolean):
KVSFCYSetCurrentRunModeReclass() :#
procedure KVSFCYSetCurrentRunModeReclass():
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