Skip to content

KVSPSARenumber PSP Management#

Procedures#

MovePSPLine(Record KVSPSAJobPSPLine, Integer) :#

Summary: This procedure used for move Job PSP Line to new Line No. It will create a new Job PSP Line with the new Line No. then move all related tables to the new Line No. and delete the old Job PSP Line.

procedure MovePSPLine(JobPSPLine: Record "KVSPSAJobPSPLine"; NewLineNo: Integer):

Parameters:

  • JobPSPLine: Record of old Job PSP Line which will be moved to a new Line No.
  • NewLineNo: Integer of new Line No. which will be assigned to the new Job PSP Line.

Events#

KVSPSAOnAfterMoveToNewJobPSPLineBeforeDeleteOldPSPLine(Record KVSPSAJobPSPLine, Record KVSPSAJobPSPLine) :#

Summary: Use this Event to change the Values of the NewJobPSPLine or to move other related tables of JobPSPLine

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterMoveToNewJobPSPLineBeforeDeleteOldPSPLine(var NewJobPSPLine: Record "KVSPSAJobPSPLine"; var OldJobPSPLine: Record "KVSPSAJobPSPLine"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSARenumber PSP Management", 'KVSPSAOnAfterMoveToNewJobPSPLineBeforeDeleteOldPSPLine', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterMoveToNewJobPSPLineBeforeDeleteOldPSPLine(var NewJobPSPLine: Record "KVSPSAJobPSPLine"; var OldJobPSPLine: Record "KVSPSAJobPSPLine")
begin
end;

Parameters:

  • NewJobPSPLine: New created JobPSPLine with new "Line No."
  • OldJobPSPLine: Old JobPSPLine which is moved to a new "Line No."

KVSPSAOnBeforeInsertNewBudgetLine(Record KVSPSA Job Budget Line, Record KVSPSA Job Budget Line) :#

Summary: Event fired before inserting a new budget line during PSP line renumbering. Allows extensions to modify the new budget line before insertion. This event enables customization of budget line data during the renumbering process, allowing modifications to fields or related calculations.

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeInsertNewBudgetLine(var NewJobBudgetLine: Record "KVSPSA Job Budget Line"; var JobBudgetLine: Record "KVSPSA Job Budget Line"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSARenumber PSP Management", 'KVSPSAOnBeforeInsertNewBudgetLine', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeInsertNewBudgetLine(var NewJobBudgetLine: Record "KVSPSA Job Budget Line"; var JobBudgetLine: Record "KVSPSA Job Budget Line")
begin
end;

Parameters:

  • NewJobBudgetLine: The new job budget line being created with the new line numbering (passed by reference for modification).
  • JobBudgetLine: The original job budget line that is being renumbered.

KVSPSAOnBeforeInsertNewJobPSPLineOnMovePSPLine(Record KVSPSAJobPSPLine, Record KVSPSAJobPSPLine) :#

Summary: Use this Event to add changes to NewJobPSPLine before its inserted after values of OldJobPSPLine are transfered

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeInsertNewJobPSPLineOnMovePSPLine(var NewJobPSPLine: Record "KVSPSAJobPSPLine"; var OldJobPSPLine: Record "KVSPSAJobPSPLine"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSARenumber PSP Management", 'KVSPSAOnBeforeInsertNewJobPSPLineOnMovePSPLine', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeInsertNewJobPSPLineOnMovePSPLine(var NewJobPSPLine: Record "KVSPSAJobPSPLine"; var OldJobPSPLine: Record "KVSPSAJobPSPLine")
begin
end;

Parameters:

  • NewJobPSPLine: New created JobPSPLine with new "Line No."
  • OldJobPSPLine: Old JobPSPLine which is moved to a new "Line No."

KVSPSAOnBeforeInsertNewPSPLine(Record KVSPSAJobPSPLine, Record KVSPSAJobPSPLine) :#

Obsolete

This Element will be removed or changed with a future Version of the App.

[Obsolete('New Event "KVSPSAOnBeforeInsertNewJobPSPLineOnMovePSPLine" created and insert of JobPSPLine moved in code', '24.1')]
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeInsertNewPSPLine(var NewJobPSPLine: Record "KVSPSAJobPSPLine"; var OldJobPSPLine: Record "KVSPSAJobPSPLine"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSARenumber PSP Management", 'KVSPSAOnBeforeInsertNewPSPLine', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeInsertNewPSPLine(var NewJobPSPLine: Record "KVSPSAJobPSPLine"; var OldJobPSPLine: Record "KVSPSAJobPSPLine")
begin
end;