Skip to content

KVSPSAFindPSPAndBudgetLine#

Procedures#

ChooseBudgLineForPSPLine(Record KVSPSAJobPSPLine, Enum KVSPSAJobBudgetLineType, Code[20], Code[20], Integer, Record KVSPSA Job Budget Line) : Boolean#

Summary: Choose Budget Line for PSP Line

procedure ChooseBudgLineForPSPLine(JobPSPLine: Record "KVSPSAJobPSPLine"; TypeFilter: Enum "KVSPSAJobBudgetLineType"; NoFilter: Code[20]; VariantCodeFilter: Code[20]; OldLineNo: Integer; var JobBudgetLine: Record "KVSPSA Job Budget Line"): Boolean

FindJobAndPSPLine(Code[20], Code[20], Code[20], Code[20], Code[20], Record Job, Record KVSPSAJobPSPLine, Text) : Boolean#

procedure FindJobAndPSPLine(JobNo: Code[20]; WorkPackageCode: Code[20]; PhaseCode: Code[20]; TaskCode: Code[20]; StepCode: Code[20]; var Job: Record "Job"; var JobPSPLine: Record "KVSPSAJobPSPLine"; var ErrorText: Text): Boolean

FindUniqueBudgetLine(Code[20], Code[20], Code[20], Code[20], Code[20], Enum KVSPSAJobBudgetLineType, Code[20], Code[20], Record KVSPSA Job Budget Line) : Boolean#

procedure FindUniqueBudgetLine(JobNo: Code[20]; WorkPackageCode: Code[20]; PhaseCode: Code[20]; TaskCode: Code[20]; StepCode: Code[20]; JobBudgetLineType: Enum "KVSPSAJobBudgetLineType"; No: Code[20]; VariantCode: Code[20]; var JobBudgetLine: Record "KVSPSA Job Budget Line"): Boolean

TestConnectedBudget(Code[20], Code[20], Code[20], Code[20], Code[20], Integer, Text, Enum KVSPSAJobBudgetLineType, Code[20], Code[20], Record KVSPSA Job Budget Line, Text) : Boolean#

Summary: Test connected Budget Line

procedure TestConnectedBudget(JobNo: Code[20]; WorkPackageCode: Code[20]; PhaseCode: Code[20]; TaskCode: Code[20]; StepCode: Code[20]; BudgetLineNo: Integer; TypeText: Text; Type: Enum "KVSPSAJobBudgetLineType"; No: Code[20]; VariantCode: Code[20]; var JobBudgetLine: Record "KVSPSA Job Budget Line"; var ErrorText: Text): Boolean

Events#

KVSPSAOnBeforeTestConnectedBudget(Code[20], Code[20], Code[20], Code[20], Code[20], Integer, Text, Enum KVSPSAJobBudgetLineType, Code[20], Code[20], Record KVSPSA Job Budget Line, Text, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeTestConnectedBudget(JobNo: Code[20]; WorkPackageCode: Code[20]; PhaseCode: Code[20]; TaskCode: Code[20]; StepCode: Code[20]; BudgetLineNo: Integer; TypeText: Text; Type: Enum "KVSPSAJobBudgetLineType"; No: Code[20]; VariantCode: Code[20]; var JobBudgetLine: Record "KVSPSA Job Budget Line"; var ErrorText: Text; var OK: Boolean; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAFindPSPAndBudgetLine", 'KVSPSAOnBeforeTestConnectedBudget', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeTestConnectedBudget(JobNo: Code[20]; WorkPackageCode: Code[20]; PhaseCode: Code[20]; TaskCode: Code[20]; StepCode: Code[20]; BudgetLineNo: Integer; TypeText: Text; Type: Enum "KVSPSAJobBudgetLineType"; No: Code[20]; VariantCode: Code[20]; var JobBudgetLine: Record "KVSPSA Job Budget Line"; var ErrorText: Text; var OK: Boolean; var IsHandled: Boolean)
begin
end;