Skip to content

KVSPSAREAllocationMgt#

Procedures#

OnRun#

procedure OnRun(Rec: Record "#437dbf0e84ff417a965ded2bb9650972#Job")

CalcAllocationForJob(Record Job, Integer) :#

procedure CalcAllocationForJob(Job: Record "Job"; CalcBaseFieldNo: Integer):

CalcAllocationForPSP(Record KVSPSAJobPSPLine, Integer) :#

procedure CalcAllocationForPSP(var KVSPSAJobPSPLine: Record "KVSPSAJobPSPLine"; CalcBaseFieldNo: Integer):

CalculateCoOwnershipShare(Record Job, Integer) :#

procedure CalculateCoOwnershipShare(Job: Record "Job"; CalcBaseFieldNo: Integer):

CreateFlatBudgetLinesOnPSAJobPSPLine(Record KVSPSAJobPSPLine) :#

procedure CreateFlatBudgetLinesOnPSAJobPSPLine(var KVSPSAJobPSPLine: Record "KVSPSAJobPSPLine"):

FillTempFlatBudgetLines(Code[20], Code[10], Code[20], Record KVSPSA Job Budget Line) : Boolean#

procedure FillTempFlatBudgetLines(JobNo: Code[20]; JobBudgetName: Code[10]; PSPVersionNo: Code[20]; var TempFlatKVSPSAJobBudgetLine: Record "KVSPSA Job Budget Line" temporary): Boolean

FillTempFlatBudgetLines(Code[20], Code[10], Code[20], Boolean, Boolean, Record KVSPSA Job Budget Line) : Boolean#

procedure FillTempFlatBudgetLines(JobNo: Code[20]; JobBudgetName: Code[10]; PSPVersionNo: Code[20]; AdditionalSales: Boolean; LineForReallocationPosting: Boolean; var TempFlatKVSPSAJobBudgetLine: Record "KVSPSA Job Budget Line" temporary): Boolean

DeactivateReallocation(Code[20], Code[10], Code[20]) :#

procedure DeactivateReallocation(JobNo: Code[20]; JobBudgetName: Code[10]; PSPVersionNo: Code[20]):

GetAllocationEndTimeReachedErr() : Text#

procedure GetAllocationEndTimeReachedErr(): Text

IsAllocationEndTimeReached(Boolean, Time, Option) : Boolean#

procedure IsAllocationEndTimeReached(var AllocationEndDayReached: Boolean; EndTime: Time; EndOnWeekday: Option): Boolean

Events#

KVSPSAREOnAfterSetFilterJobFlatsForBudgetLines(Record KVSPSAJobPSPLine, Enum KVSPSAREAllocationKeyFlatType, Record KVSPSAREJobFlat) :#

Summary: Use this event fo filter the job flats which will be added to a WBS line as budget lines

[IntegrationEvent(false, false)]
local procedure KVSPSAREOnAfterSetFilterJobFlatsForBudgetLines(KVSPSAJobPSPLine: Record "KVSPSAJobPSPLine"; SelectedFlatAllocationKey: Enum "KVSPSAREAllocationKeyFlatType"; var JobFlats: Record "KVSPSAREJobFlat"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAREAllocationMgt", 'KVSPSAREOnAfterSetFilterJobFlatsForBudgetLines', '', false, false)]
local procedure DoSomethingKVSPSAREOnAfterSetFilterJobFlatsForBudgetLines(KVSPSAJobPSPLine: Record "KVSPSAJobPSPLine"; SelectedFlatAllocationKey: Enum "KVSPSAREAllocationKeyFlatType"; var JobFlats: Record "KVSPSAREJobFlat")
begin
end;

Parameters:

  • KVSPSAJobPSPLine: The WBS line the budget lines will be added to
  • SelectedFlatAllocationKey: The allocation key selected to limit te job flats
  • JobFlats: The filtered list of Job Flats which will afterwards be added as budget lines