KVSPSAEntryChangingManagement#
Procedures#
ChangeJobSuggestionInJobLedgerEntries(Record Job Ledger Entry) :#
Summary: The ChangeJobSuggestionInJobLedgerEntries procedure changes the job suggestion in job ledger entries. It allows the user to select a new job and updates the job ledger entries accordingly. It also handles the insertion of cancelation lines and new job journal lines. It commits the changes and optionally opens the job journal page.
procedure ChangeJobSuggestionInJobLedgerEntries(var JobLedgerEntry: Record "Job Ledger Entry"):
Parameters:
JobLedgerEntry: The job ledger entry record to be changed.
ChangeWPinJobLedgerEntry(Record Job Ledger Entry) :#
Summary: The ChangeWPinJobLedgerEntry procedure changes the work package in a job ledger entry. It allows the user to select a new work package and updates the job ledger entry accordingly. It also handles the confirmation dialog for changing the work package and recalculating prices if necessary. If the work package is changed, it updates the dimensions and project account. If the work type changes, it recalculates the prices. It also checks for existing purchase invoice entries and prompts the user for confirmation before proceeding.
procedure ChangeWPinJobLedgerEntry(JobLedgerEntry: Record "Job Ledger Entry"):
Parameters:
JobLedgerEntry: The job ledger entry record to be changed.
ChangeWPinJobLedgerEntryBatch(Record Job Ledger Entry, Record KVSPSAJobPSPLine, Boolean) :#
Summary: The ChangeWPinJobLedgerEntryBatch procedure changes the work package in a batch of job ledger entries. It allows the user to select a new work package and updates the job ledger entries accordingly. It also handles the confirmation dialog for changing the work package and recalculating prices if necessary. If the work package is changed, it updates the dimensions and project account. If the work type changes, it recalculates the prices. It also updates the budget line number and handles the connection with the budget line. If the job ledger entry is a resource type, it finds the resource price and cost. If the job ledger entry is a time ledger entry, it updates the invoicing type and recalculates the invoicing quantity.
procedure ChangeWPinJobLedgerEntryBatch(JobLedgerEntry: Record "Job Ledger Entry"; JobPSPLine: Record "KVSPSAJobPSPLine"; BatchCall: Boolean):
Parameters:
JobLedgerEntry: The job ledger entry record to be changed.JobPSPLine: The job PSP line record containing the new work package information.BatchCall: Indicates whether the procedure is called in batch mode.
ChangeWPinJobTimeLedgerEntryBatch(Record KVSPSAJobTimeLedgerEntry, Record KVSPSAJobPSPLine, Boolean) :#
Summary: The ChangeWPinJobTimeLedgerEntryBatch procedure changes the work package in a job time ledger entry. It allows the user to select a new work package and updates the job time ledger entry accordingly. If the work package is changed, it updates the dimensions and project account.
procedure ChangeWPinJobTimeLedgerEntryBatch(JobTimeLedgerEntry: Record "KVSPSAJobTimeLedgerEntry"; JobPSPLine: Record "KVSPSAJobPSPLine"; BatchCall: Boolean):
Parameters:
JobTimeLedgerEntry: The job time ledger entry record to be changed.JobPSPLine: The job PSP line record containing the new work package information.BatchCall: Indicates whether the procedure is called in batch mode.
ChangeWPinMultipleJobLedgerEntries(Record Job Ledger Entry) :#
Summary: The ChangeWPinMultipleJobLedgerEntries procedure changes the work package in multiple job ledger entries. It allows the user to select a new work package and updates all selected job ledger entries accordingly. It also handles the confirmation dialog for changing the work package and recalculating prices if necessary.
procedure ChangeWPinMultipleJobLedgerEntries(var JobLedgerEntry: Record "Job Ledger Entry"):
Parameters:
JobLedgerEntry: The job ledger entry record to be changed.
SetHideConfirmationDialog(Boolean) :#
Summary: Sets the GlobalHideConfirmationDialog variable to control the visibility of confirmation dialogs.
procedure SetHideConfirmationDialog(SetHideDialog: Boolean):
Parameters:
SetHideDialog: Boolean value to set the visibility of confirmation dialogs
SetTargetPSPForChangeJobSuggestion(Record KVSPSAJobPSPLine) :#
Summary: Sets the GlobalTargetJobPSPLine variable to the specified JobPSPLine.
procedure SetTargetPSPForChangeJobSuggestion(var JobPSPLine: Record "KVSPSAJobPSPLine"):
Parameters:
JobPSPLine: Set the Record to the Global Record
UpdateDimSetInBudgetLineFromPSPLine(Record KVSPSAJobPSPLine) :#
Summary: Updates the Dimension Set in the Budget Lines from the PSP Line
procedure UpdateDimSetInBudgetLineFromPSPLine(JobPSPLine: Record "KVSPSAJobPSPLine"):
Parameters:
JobPSPLine: Used to set the Dimension Set ID in corresponding Budget Lines
UpdateDimSetInPaymentPlanLineFromPSPLine(Record KVSPSAJobPSPLine) :#
Summary: Updates the Dimension Set in the Payment Plan Lines from the PSP Line
procedure UpdateDimSetInPaymentPlanLineFromPSPLine(JobPSPLine: Record "KVSPSAJobPSPLine"):
Parameters:
JobPSPLine: Used to set the Dimension Set ID in corresponding Payment Plan Lines
Events#
KVSPSAOnAfterChangeWPinJobLedgerEntryBatch(Record Job Ledger Entry, Record KVSPSAJobPSPLine, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterChangeWPinJobLedgerEntryBatch(var JobLedgerEntry: Record "Job Ledger Entry"; var JobPSPLine: Record "KVSPSAJobPSPLine"; BatchCall: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnAfterChangeWPinJobLedgerEntryBatch', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterChangeWPinJobLedgerEntryBatch(var JobLedgerEntry: Record "Job Ledger Entry"; var JobPSPLine: Record "KVSPSAJobPSPLine"; BatchCall: Boolean)
begin
end;
KVSPSAOnAfterChangeWPinJobTimeLedgerEntryBatch(Record KVSPSAJobTimeLedgerEntry, Record KVSPSAJobPSPLine, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterChangeWPinJobTimeLedgerEntryBatch(var JobTimeLedgerEntry: Record "KVSPSAJobTimeLedgerEntry"; var JobPSPLine: Record "KVSPSAJobPSPLine"; BatchCall: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnAfterChangeWPinJobTimeLedgerEntryBatch', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterChangeWPinJobTimeLedgerEntryBatch(var JobTimeLedgerEntry: Record "KVSPSAJobTimeLedgerEntry"; var JobPSPLine: Record "KVSPSAJobPSPLine"; BatchCall: Boolean)
begin
end;
KVSPSAOnAfterCheckJobLedgerEntryIsFromMasterJobLedgerEntryPSPLine(Record Job Ledger Entry, Record Job Ledger Entry) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCheckJobLedgerEntryIsFromMasterJobLedgerEntryPSPLine(var MasterJobLedgerEntry: Record "Job Ledger Entry"; var ToBeMovedJobLedgerEntry: Record "Job Ledger Entry"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnAfterCheckJobLedgerEntryIsFromMasterJobLedgerEntryPSPLine', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCheckJobLedgerEntryIsFromMasterJobLedgerEntryPSPLine(var MasterJobLedgerEntry: Record "Job Ledger Entry"; var ToBeMovedJobLedgerEntry: Record "Job Ledger Entry")
begin
end;
KVSPSAOnAfterSetFilterOnJobPSPLineInUpdatePSPLineFromJob(Record Job, Boolean, Record Default Dimension, Record KVSPSAJobPSPLine) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterSetFilterOnJobPSPLineInUpdatePSPLineFromJob(Job: Record "Job"; FromDelete: Boolean; DefaultDimension: Record "Default Dimension"; var JobPSPLine: Record "KVSPSAJobPSPLine"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnAfterSetFilterOnJobPSPLineInUpdatePSPLineFromJob', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterSetFilterOnJobPSPLineInUpdatePSPLineFromJob(Job: Record "Job"; FromDelete: Boolean; DefaultDimension: Record "Default Dimension"; var JobPSPLine: Record "KVSPSAJobPSPLine")
begin
end;
KVSPSAOnAfterUpdatePSPLineFromJob(Record Job, Boolean, Record Default Dimension, Boolean, Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterUpdatePSPLineFromJob(Job: Record "Job"; FromDelete: Boolean; DefaultDimension: Record "Default Dimension"; UserQuestion: Boolean; ExistingData: Boolean; ChangePSPDim: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnAfterUpdatePSPLineFromJob', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterUpdatePSPLineFromJob(Job: Record "Job"; FromDelete: Boolean; DefaultDimension: Record "Default Dimension"; UserQuestion: Boolean; ExistingData: Boolean; ChangePSPDim: Boolean)
begin
end;
KVSPSAOnBeforeAskQuestionInUpdatePSPLineFromJob(Record Job, Boolean, Record Default Dimension, Boolean, Boolean, Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeAskQuestionInUpdatePSPLineFromJob(Job: Record "Job"; FromDelete: Boolean; DefaultDimension: Record "Default Dimension"; UserQuestion: Boolean; var ExistingData: Boolean; var ChangePSPDim: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnBeforeAskQuestionInUpdatePSPLineFromJob', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeAskQuestionInUpdatePSPLineFromJob(Job: Record "Job"; FromDelete: Boolean; DefaultDimension: Record "Default Dimension"; UserQuestion: Boolean; var ExistingData: Boolean; var ChangePSPDim: Boolean; var IsHandled: Boolean)
begin
end;
KVSPSAOnBeforeChangeWPinJobLedgerEntryBatch(Record Job Ledger Entry, Record KVSPSAJobPSPLine, Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeChangeWPinJobLedgerEntryBatch(var JobLedgerEntry: Record "Job Ledger Entry"; var JobPSPLine: Record "KVSPSAJobPSPLine"; BatchCall: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnBeforeChangeWPinJobLedgerEntryBatch', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeChangeWPinJobLedgerEntryBatch(var JobLedgerEntry: Record "Job Ledger Entry"; var JobPSPLine: Record "KVSPSAJobPSPLine"; BatchCall: Boolean; var IsHandled: Boolean)
begin
end;
KVSPSAOnBeforeChangeWPinJobTimeLedgerEntryBatch(Record KVSPSAJobTimeLedgerEntry, Record KVSPSAJobPSPLine, Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeChangeWPinJobTimeLedgerEntryBatch(var JobTimeLedgerEntry: Record "KVSPSAJobTimeLedgerEntry"; var JobPSPLine: Record "KVSPSAJobPSPLine"; BatchCall: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnBeforeChangeWPinJobTimeLedgerEntryBatch', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeChangeWPinJobTimeLedgerEntryBatch(var JobTimeLedgerEntry: Record "KVSPSAJobTimeLedgerEntry"; var JobPSPLine: Record "KVSPSAJobPSPLine"; BatchCall: Boolean; var IsHandled: Boolean)
begin
end;
KVSPSAOnBeforeFindJobAccountInChangeWPinJobLedgerEntryBatch(Record Job Ledger Entry, Code[10]) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeFindJobAccountInChangeWPinJobLedgerEntryBatch(var TempJobLedgerEntry: Record "Job Ledger Entry" temporary; var JobType: Code[10]):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnBeforeFindJobAccountInChangeWPinJobLedgerEntryBatch', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeFindJobAccountInChangeWPinJobLedgerEntryBatch(var TempJobLedgerEntry: Record "Job Ledger Entry" temporary; var JobType: Code[10])
begin
end;
KVSPSAOnBeforeGetOwnJobJournalBatch(Record Job Journal Batch, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeGetOwnJobJournalBatch(var JobJournalBatch: Record "Job Journal Batch"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnBeforeGetOwnJobJournalBatch', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeGetOwnJobJournalBatch(var JobJournalBatch: Record "Job Journal Batch"; var IsHandled: Boolean)
begin
end;
KVSPSAOnCheckJobLedgerEntry(Record Job Ledger Entry, Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnCheckJobLedgerEntry(JobLedgerEntry: Record "Job Ledger Entry"; TestCorrection: Boolean; WithCorrection: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnCheckJobLedgerEntry', '', false, false)]
local procedure DoSomethingKVSPSAOnCheckJobLedgerEntry(JobLedgerEntry: Record "Job Ledger Entry"; TestCorrection: Boolean; WithCorrection: Boolean)
begin
end;
KVSPSAOnCheckJobTimeLedgerEntry(Record KVSPSAJobTimeLedgerEntry, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnCheckJobTimeLedgerEntry(JobTimeLedgerEntry: Record "KVSPSAJobTimeLedgerEntry"; TestCorrection: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnCheckJobTimeLedgerEntry', '', false, false)]
local procedure DoSomethingKVSPSAOnCheckJobTimeLedgerEntry(JobTimeLedgerEntry: Record "KVSPSAJobTimeLedgerEntry"; TestCorrection: Boolean)
begin
end;
KVSPSAOnInsertJobJournalLineOnBeforeModify(Record Job Journal Line, Record Job Ledger Entry, Record KVSPSAJobPSPLine) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnInsertJobJournalLineOnBeforeModify(var JobJournalLine: Record "Job Journal Line"; JobLedgerEntry: Record "Job Ledger Entry"; JobPSPLine: Record "KVSPSAJobPSPLine"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnInsertJobJournalLineOnBeforeModify', '', false, false)]
local procedure DoSomethingKVSPSAOnInsertJobJournalLineOnBeforeModify(var JobJournalLine: Record "Job Journal Line"; JobLedgerEntry: Record "Job Ledger Entry"; JobPSPLine: Record "KVSPSAJobPSPLine")
begin
end;
KVSPSAOnJobLedgerEntryCreateDimAfterAddDimSource(Record Job Ledger Entry, List) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnJobLedgerEntryCreateDimAfterAddDimSource(var JobLedgerEntry: Record "Job Ledger Entry"; var DefaultDimSource: List):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnJobLedgerEntryCreateDimAfterAddDimSource', '', false, false)]
local procedure DoSomethingKVSPSAOnJobLedgerEntryCreateDimAfterAddDimSource(var JobLedgerEntry: Record "Job Ledger Entry"; var DefaultDimSource: List)
begin
end;
KVSPSAOnJobTimeLedgerEntryCreateDimAfterAddDimSource(Record KVSPSAJobTimeLedgerEntry, List) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnJobTimeLedgerEntryCreateDimAfterAddDimSource(var JobTimeLedgerEntry: Record "KVSPSAJobTimeLedgerEntry"; var DefaultDimSource: List):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAEntryChangingManagement", 'KVSPSAOnJobTimeLedgerEntryCreateDimAfterAddDimSource', '', false, false)]
local procedure DoSomethingKVSPSAOnJobTimeLedgerEntryCreateDimAfterAddDimSource(var JobTimeLedgerEntry: Record "KVSPSAJobTimeLedgerEntry"; var DefaultDimSource: List)
begin
end;