Skip to content

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]): 
procedure UpdatePSPMSLinks(JobPSPHeader: 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) :#

[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;