KVSPSACopy PSP Management#
Procedures#
CopyPSPHeaderComment(Record KVSPSAJobPSPHeader, Record KVSPSAJobPSPHeader) :#
procedure CopyPSPHeaderComment(FromJobPSPHeader: Record "KVSPSAJobPSPHeader"; var ToJobPSPHeader: Record "KVSPSAJobPSPHeader"):
CopyPSPHeaderText(Record KVSPSAJobPSPHeader, Record KVSPSAJobPSPHeader) :#
procedure CopyPSPHeaderText(FromJobPSPHeader: Record "KVSPSAJobPSPHeader"; var ToJobPSPHeader: Record "KVSPSAJobPSPHeader"):
CopyPSPLine(Record KVSPSAJobPSPLine, Record KVSPSAJobPSPLine, Integer, Date, Date) :#
procedure CopyPSPLine(FromJobPSPLine: Record "KVSPSAJobPSPLine"; var ToJobPSPLine: Record "KVSPSAJobPSPLine"; NewLineNo: Integer; NewStartDate: Date; NewEndDate: Date):
LinesClearCopyRelation(Record KVSPSAJobPSPHeader) :#
procedure LinesClearCopyRelation(JobPSPHeader: Record "KVSPSAJobPSPHeader"):
SetJob(Record Job, Record Job) :#
procedure SetJob(FromJob: Record "Job"; ToJob: Record "Job"):
SetPSPHeader(Record KVSPSAJobPSPHeader, Record KVSPSAJobPSPHeader) :#
procedure SetPSPHeader(var FromJobPSPHeader: Record "KVSPSAJobPSPHeader"; var ToJobPSPHeader: Record "KVSPSAJobPSPHeader"):
Settings(DateFormula, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Boolean, Option, Boolean, Boolean, Boolean, Boolean) :#
procedure Settings(DateCalcForm: DateFormula; NewDim: Boolean; InclLinecomment: Boolean; IncludeHeaderComment: Boolean; InclLineText: Boolean; IncludeHeaderText: Boolean; InclTaskLinks: Boolean; InclBudgetLine: Boolean; InclLineBudgetText: Boolean; InclBudgetEntry: Boolean; UpdateStartEndDate: Boolean; UpdateCostandPrice: Option; IncludePSPSkill: Boolean; UpdateAutoActCode: Boolean; IgnoreFinishedBudLines: Boolean; CopyStructureOnly: Boolean):
SetUseNewPhaseCode(Code[20]) :#
procedure SetUseNewPhaseCode(NewPhaseCode: Code[20]):
SetUseNewStepCode(Code[20]) :#
procedure SetUseNewStepCode(NewStepCode: Code[20]):
SetUseNewTaskCode(Code[20]) :#
procedure SetUseNewTaskCode(NewTaskCode: Code[20]):
UpdatePSPMSLinks(Record KVSPSAJobPSPHeader) :#
procedure UpdatePSPMSLinks(JobPSPHeader: Record "KVSPSAJobPSPHeader"):
UpdatePSPTaskLinks(Record KVSPSAJobPSPHeader) :#
procedure UpdatePSPTaskLinks(JobPSPHeader: Record "KVSPSAJobPSPHeader"):
Events#
KVSPSAOnAfterCopiedBudgetLineOnPSPCopy(Record KVSPSA Job Budget Line, Record KVSPSA Job Budget Line) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCopiedBudgetLineOnPSPCopy(var FromJobBudgetLine: Record "KVSPSA Job Budget Line"; var ToInsertedJobBudgetLine: Record "KVSPSA Job Budget Line"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnAfterCopiedBudgetLineOnPSPCopy', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCopiedBudgetLineOnPSPCopy(var FromJobBudgetLine: Record "KVSPSA Job Budget Line"; var ToInsertedJobBudgetLine: Record "KVSPSA Job Budget Line")
begin
end;
KVSPSAOnAfterCopiedPSPLineOnPSPCopy(Record KVSPSAJobPSPLine, Record KVSPSAJobPSPLine) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCopiedPSPLineOnPSPCopy(var FromJobPSPLine: Record "KVSPSAJobPSPLine"; var ToJobPSPLine: Record "KVSPSAJobPSPLine"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnAfterCopiedPSPLineOnPSPCopy', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCopiedPSPLineOnPSPCopy(var FromJobPSPLine: Record "KVSPSAJobPSPLine"; var ToJobPSPLine: Record "KVSPSAJobPSPLine")
begin
end;
KVSPSAOnAfterCopyBudgetEntryFieldsOnPSPCopy(Record KVSPSA Job Budget Entry, Record KVSPSA Job Budget Entry) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCopyBudgetEntryFieldsOnPSPCopy(var FromJobBudgetEntry: Record "KVSPSA Job Budget Entry"; var ToJobBudgetEntry: Record "KVSPSA Job Budget Entry"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnAfterCopyBudgetEntryFieldsOnPSPCopy', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCopyBudgetEntryFieldsOnPSPCopy(var FromJobBudgetEntry: Record "KVSPSA Job Budget Entry"; var ToJobBudgetEntry: Record "KVSPSA Job Budget Entry")
begin
end;
KVSPSAOnAfterCopyBudgetLineFieldsOnPSPCopy(Record KVSPSA Job Budget Line, Record KVSPSA Job Budget Line) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCopyBudgetLineFieldsOnPSPCopy(var FromJobBudgetLine: Record "KVSPSA Job Budget Line"; var ToInsertedJobBudgetLine: Record "KVSPSA Job Budget Line"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnAfterCopyBudgetLineFieldsOnPSPCopy', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCopyBudgetLineFieldsOnPSPCopy(var FromJobBudgetLine: Record "KVSPSA Job Budget Line"; var ToInsertedJobBudgetLine: Record "KVSPSA Job Budget Line")
begin
end;
KVSPSAOnAfterCopyBudgetTaskLinkFieldsOnPSPCopy(Record KVSPSABudget Line Task Link, Record KVSPSABudget Line Task Link) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCopyBudgetTaskLinkFieldsOnPSPCopy(var FromBudgetLineTaskLink: Record "KVSPSABudget Line Task Link"; var ToBudgetLineTaskLink: Record "KVSPSABudget Line Task Link"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnAfterCopyBudgetTaskLinkFieldsOnPSPCopy', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCopyBudgetTaskLinkFieldsOnPSPCopy(var FromBudgetLineTaskLink: Record "KVSPSABudget Line Task Link"; var ToBudgetLineTaskLink: Record "KVSPSABudget Line Task Link")
begin
end;
KVSPSAOnAfterCopyPSPCommentFieldsOnPSPCopy(Record KVSPSAPSPJobCommentLineText, Record KVSPSAPSPJobCommentLineText) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCopyPSPCommentFieldsOnPSPCopy(var FromPSPJobCommentLineText: Record "KVSPSAPSPJobCommentLineText"; var ToPSPJobCommentLineText: Record "KVSPSAPSPJobCommentLineText"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnAfterCopyPSPCommentFieldsOnPSPCopy', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCopyPSPCommentFieldsOnPSPCopy(var FromPSPJobCommentLineText: Record "KVSPSAPSPJobCommentLineText"; var ToPSPJobCommentLineText: Record "KVSPSAPSPJobCommentLineText")
begin
end;
KVSPSAOnAfterCopyPSPLineFieldsOnPSPCopy(Record KVSPSAJobPSPLine, Record KVSPSAJobPSPLine) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCopyPSPLineFieldsOnPSPCopy(var FromJobPSPLine: Record "KVSPSAJobPSPLine"; var ToJobPSPLine: Record "KVSPSAJobPSPLine"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnAfterCopyPSPLineFieldsOnPSPCopy', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCopyPSPLineFieldsOnPSPCopy(var FromJobPSPLine: Record "KVSPSAJobPSPLine"; var ToJobPSPLine: Record "KVSPSAJobPSPLine")
begin
end;
KVSPSAOnAfterCopyPSPMileStoneLinkFieldsOnPSPCopy(Record KVSPSAPSP Line Milestone Link, Record KVSPSAPSP Line Milestone Link) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCopyPSPMileStoneLinkFieldsOnPSPCopy(var FromPSPLineMilestoneLink: Record "KVSPSAPSP Line Milestone Link"; var ToPSPLineMilestoneLink: Record "KVSPSAPSP Line Milestone Link"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnAfterCopyPSPMileStoneLinkFieldsOnPSPCopy', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCopyPSPMileStoneLinkFieldsOnPSPCopy(var FromPSPLineMilestoneLink: Record "KVSPSAPSP Line Milestone Link"; var ToPSPLineMilestoneLink: Record "KVSPSAPSP Line Milestone Link")
begin
end;
KVSPSAOnAfterCopyPSPSkillFieldsOnPSPCopy(Record KVSPSAPSP Line Skill, Record KVSPSAPSP Line Skill) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCopyPSPSkillFieldsOnPSPCopy(var FromPSPLineSkill: Record "KVSPSAPSP Line Skill"; var ToPSPLineSkill: Record "KVSPSAPSP Line Skill"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnAfterCopyPSPSkillFieldsOnPSPCopy', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCopyPSPSkillFieldsOnPSPCopy(var FromPSPLineSkill: Record "KVSPSAPSP Line Skill"; var ToPSPLineSkill: Record "KVSPSAPSP Line Skill")
begin
end;
KVSPSAOnAfterCopyPSPTaskLinkFieldsOnPSPCopy(Record KVSPSAPSP Line Task Link, Record KVSPSAPSP Line Task Link) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCopyPSPTaskLinkFieldsOnPSPCopy(var FromPSPLineTaskLink: Record "KVSPSAPSP Line Task Link"; var ToPSPLineTaskLink: Record "KVSPSAPSP Line Task Link"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnAfterCopyPSPTaskLinkFieldsOnPSPCopy', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCopyPSPTaskLinkFieldsOnPSPCopy(var FromPSPLineTaskLink: Record "KVSPSAPSP Line Task Link"; var ToPSPLineTaskLink: Record "KVSPSAPSP Line Task Link")
begin
end;
KVSPSAOnAfterCopyPSPTextFieldsOnPSPCopy(Record KVSPSAPSP Job Text Line, Record KVSPSAPSP Job Text Line) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCopyPSPTextFieldsOnPSPCopy(var FromPSPJobTextLine: Record "KVSPSAPSP Job Text Line"; var ToPSPJobTextLine: Record "KVSPSAPSP Job Text Line"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnAfterCopyPSPTextFieldsOnPSPCopy', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCopyPSPTextFieldsOnPSPCopy(var FromPSPJobTextLine: Record "KVSPSAPSP Job Text Line"; var ToPSPJobTextLine: Record "KVSPSAPSP Job Text Line")
begin
end;
KVSPSAOnBeforeCopyBudgetEntryFieldsOnPSPCopy(Record KVSPSA Job Budget Entry, Record KVSPSA Job Budget Entry) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeCopyBudgetEntryFieldsOnPSPCopy(var FromJobBudgetEntry: Record "KVSPSA Job Budget Entry"; var ToJobBudgetEntry: Record "KVSPSA Job Budget Entry"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnBeforeCopyBudgetEntryFieldsOnPSPCopy', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCopyBudgetEntryFieldsOnPSPCopy(var FromJobBudgetEntry: Record "KVSPSA Job Budget Entry"; var ToJobBudgetEntry: Record "KVSPSA Job Budget Entry")
begin
end;
KVSPSAOnBeforeCopyBudgetLineFieldsOnPSPCopy(Record KVSPSAJobPSPLine, Record KVSPSAJobPSPLine, Record KVSPSA Job Budget Line, Record KVSPSA Job Budget Line) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeCopyBudgetLineFieldsOnPSPCopy(FromJobPSPLine: Record "KVSPSAJobPSPLine"; var ToJobPSPLine: Record "KVSPSAJobPSPLine"; var FromJobBudgetLine: Record "KVSPSA Job Budget Line"; var ToInsertedJobBudgetLine: Record "KVSPSA Job Budget Line"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnBeforeCopyBudgetLineFieldsOnPSPCopy', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCopyBudgetLineFieldsOnPSPCopy(FromJobPSPLine: Record "KVSPSAJobPSPLine"; var ToJobPSPLine: Record "KVSPSAJobPSPLine"; var FromJobBudgetLine: Record "KVSPSA Job Budget Line"; var ToInsertedJobBudgetLine: Record "KVSPSA Job Budget Line")
begin
end;
KVSPSAOnBeforeCopyBudgetTaskLinkFieldsOnPSPCopy(Record KVSPSABudget Line Task Link, Record KVSPSABudget Line Task Link) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeCopyBudgetTaskLinkFieldsOnPSPCopy(var FromBudgetLineTaskLink: Record "KVSPSABudget Line Task Link"; var ToBudgetLineTaskLink: Record "KVSPSABudget Line Task Link"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnBeforeCopyBudgetTaskLinkFieldsOnPSPCopy', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCopyBudgetTaskLinkFieldsOnPSPCopy(var FromBudgetLineTaskLink: Record "KVSPSABudget Line Task Link"; var ToBudgetLineTaskLink: Record "KVSPSABudget Line Task Link")
begin
end;
KVSPSAOnBeforeGetNextEntryNoOnCopyBudgetEntry(Integer, Record KVSPSA Job Budget Line, Record KVSPSA Job Budget Line, Boolean) :#
Obsolete
This Element will be removed or changed with a future Version of the App.
[Obsolete('Not needed anymore since Rolling Planing is moved to product', '25.0')]
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeGetNextEntryNoOnCopyBudgetEntry(var NextEntryNo: Integer; FromJobBudgetLine: Record "KVSPSA Job Budget Line"; ToJobBudgetLine: Record "KVSPSA Job Budget Line"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSACopy PSP Management", 'KVSPSAOnBeforeGetNextEntryNoOnCopyBudgetEntry', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeGetNextEntryNoOnCopyBudgetEntry(var NextEntryNo: Integer; FromJobBudgetLine: Record "KVSPSA Job Budget Line"; ToJobBudgetLine: Record "KVSPSA Job Budget Line"; var IsHandled: Boolean)
begin
end;