Skip to content

KVSPSA Quantity Allocation#

Events#

KVSPSAOnAfterGetRelevantDays(Date, Date, Option, Code[10], Code[20], Record Date, Integer) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterGetRelevantDays(StartingDate: Date; EndingDate: Date; Selection: Option; CalendarCode: Code[10]; ResNo: Code[20]; var TempDate: Record "Date"; var QtyWorkDays: Integer): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSA Quantity Allocation", 'KVSPSAOnAfterGetRelevantDays', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterGetRelevantDays(StartingDate: Date; EndingDate: Date; Selection: Option; CalendarCode: Code[10]; ResNo: Code[20]; var TempDate: Record "Date"; var QtyWorkDays: Integer)
begin
end;

KVSPSAOnAfterInsertBudgetEntry(Record KVSPSA Job Budget Entry, Record Date) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterInsertBudgetEntry(var JobBudgetEntry: Record "KVSPSA Job Budget Entry"; var Date: Record "Date"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSA Quantity Allocation", 'KVSPSAOnAfterInsertBudgetEntry', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterInsertBudgetEntry(var JobBudgetEntry: Record "KVSPSA Job Budget Entry"; var Date: Record "Date")
begin
end;

KVSPSAOnBeforeInsertBudgetEntry(Record KVSPSA Job Budget Entry, Record Date) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeInsertBudgetEntry(var JobBudgetEntry: Record "KVSPSA Job Budget Entry"; var Date: Record "Date"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSA Quantity Allocation", 'KVSPSAOnBeforeInsertBudgetEntry', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeInsertBudgetEntry(var JobBudgetEntry: Record "KVSPSA Job Budget Entry"; var Date: Record "Date")
begin
end;

KVSPSAOnBeforePerformAllocation(Record KVSPSA Job Budget Line, Integer, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforePerformAllocation(var JobBudgetLine: Record "KVSPSA Job Budget Line"; var Selection: Integer; var WithMessage: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSA Quantity Allocation", 'KVSPSAOnBeforePerformAllocation', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforePerformAllocation(var JobBudgetLine: Record "KVSPSA Job Budget Line"; var Selection: Integer; var WithMessage: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnGetRoundingPrecision(Boolean, Decimal) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnGetRoundingPrecision(IsItem: Boolean; var RoundingPrecision: Decimal): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSA Quantity Allocation", 'KVSPSAOnGetRoundingPrecision', '', false, false)]
local procedure DoSomethingKVSPSAOnGetRoundingPrecision(IsItem: Boolean; var RoundingPrecision: Decimal)
begin
end;

KVSPSAOnBeforeStartAutomaticQtyAllocation(Record KVSPSA Job Budget Line, Boolean, Boolean) :#

Summary: Allows to add or skip checks before performing quantity allocation. Also allows to completly handle how the procedure is performed

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeStartAutomaticQtyAllocation(var JobBudgetLine: Record "KVSPSA Job Budget Line"; var SkipChecksBeforePerformQtyAllocation: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSA Quantity Allocation", 'KVSPSAOnBeforeStartAutomaticQtyAllocation', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeStartAutomaticQtyAllocation(var JobBudgetLine: Record "KVSPSA Job Budget Line"; var SkipChecksBeforePerformQtyAllocation: Boolean; var IsHandled: Boolean)
begin
end;

Parameters:

  • JobBudgetLine: The record from "KVSPSA Job Budget Line" for which the quantity allocation will be performed
  • SkipChecksBeforePerformQtyAllocation: Allows to skip the checks before performing the quantity allocation
  • IsHandled: Allows to skip the default code