Table of Contents

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

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

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

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

GetAllocationEndTimeReachedErr() : Text

procedure GetAllocationEndTimeReachedErr(): Text

IsAllocationEndTimeReached(Boolean, Time, Enum KVSPSAREEndOnWeekday) : Boolean

procedure IsAllocationEndTimeReached(var AllocationEndDayReached: Boolean; EndTime: Time; EndOnWeekday: Enum "KVSPSAREEndOnWeekday"): 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"):

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