Skip to content

KVSPSAREAllocationMgt#

Procedures#

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"):

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