Skip to content

KVSPSAGet Activity Management#

Procedures#

OnRun#

procedure OnRun(Rec: Record "#437dbf0e84ff417a965ded2bb9650972#Purchase Line")

FilterTempBudgetLines(Record KVSPSA Job Budget Line, Boolean, Code[20], Code[20], Code[20], Code[20], Code[20], Code[20], Boolean) :#

Summary: FilterTempBudgetLines filters the temporary job budget lines based on various parameters. It applies filters for resources, work packages, phases, tasks, steps, and to-do numbers. If the IsRes parameter is true, it filters for resource lines; otherwise, it filters for budget lines. The function also considers whether the job document is being processed and applies specific filters accordingly. The function uses the GlobalJobsSetup and KVSPSAGeneral Functions PSA codeunit to manage the filtering logic. It also appends resource numbers and service package filters to the text builder for filtering.

procedure FilterTempBudgetLines(var JobBudgetLine: Record "KVSPSA Job Budget Line"; IsRes: Boolean; ResourceNo: Code[20]; ToDoNo: Code[20]; ActWorkPackageCode: Code[20]; ActPhaseCode: Code[20]; ActTaskCode: Code[20]; ActStepCode: Code[20]; JobDoc: Boolean):

Parameters:

  • JobBudgetLine: Record where the filter is assigned.
  • IsRes: Indicates whether the budget lines are for resources.
  • ResourceNo: The resource number to filter by.
  • ToDoNo: The to-do number to filter by.
  • ActWorkPackageCode: The work package code to filter by.
  • ActPhaseCode: The phase code to filter by.
  • ActTaskCode: The task code to filter by.
  • ActStepCode: The step code to filter by.
  • JobDoc: Indicates whether the budget lines are for a job document.

GetActivity(Code[20], Code[20], Code[20], Code[20], Code[20], Code[20], Text[100], Enum KVSPSAActType, Code[10], Integer, Code[20], Option) :#

Summary: GetActivity retrieves activity details for a job based on the provided parameters.

procedure GetActivity(ActJobNo: Code[20]; ActNo: Code[20]; var ActWorkPackage: Code[20]; var ActPhaseCode: Code[20]; var ActTaskCode: Code[20]; var ActStepCode: Code[20]; var ActDescription: Text[100]; ActType: Enum "KVSPSAActType"; var ActWorkTypeCode: Code[10]; var ActBudgetlineNo: Integer; var ActBudgetLineToDoNo: Code[20]; Source: Option):

Parameters:

  • ActJobNo: The job number for which to retrieve activity details.
  • ActNo: The activity number to retrieve details for.
  • ActWorkPackage: The work package code associated with the activity.
  • ActPhaseCode: The phase code associated with the activity.
  • ActTaskCode: The task code associated with the activity.
  • ActStepCode: The step code associated with the activity.
  • ActDescription: The description of the activity.
  • ActType: The type of activity, represented as an enumeration.
  • ActWorkTypeCode: The work type code associated with the activity.
  • ActBudgetlineNo: The budget line number associated with the activity.
  • ActBudgetLineToDoNo: The to-do number associated with the budget line.
  • Source: The source of the activity, which can be one of several options such as Purchase, Sales, Service, etc.

GetActivity(Code[20], Code[20], Code[20], Code[20], Code[20], Code[20], Text[100], Enum KVSPSAActType, Enum KVSPSAPspInvoicingType, Code[10], Integer, Code[20], Option) :#

Summary: GetActivity retrieves activity details for a job based on the provided parameters. This procedure is an overload of the GetActivity method that includes an additional parameter for the invoicing type.

procedure GetActivity(ActJobNo: Code[20]; ActNo: Code[20]; var ActWorkPackage: Code[20]; var ActPhaseCode: Code[20]; var ActTaskCode: Code[20]; var ActStepCode: Code[20]; var ActDescription: Text[100]; ActType: Enum "KVSPSAActType"; var ActDeductible: Enum "KVSPSAPspInvoicingType"; var ActWorkTypeCode: Code[10]; var ActBudgetLineNo: Integer; var ActBudgetLineToDoNo: Code[20]; Source: Option):

Parameters:

  • ActJobNo: The job number for which to retrieve activity details.
  • ActNo: The activity number to retrieve details for.
  • ActWorkPackage: The work package code associated with the activity.
  • ActPhaseCode: The phase code associated with the activity.
  • ActTaskCode: The task code associated with the activity.
  • ActStepCode: The step code associated with the activity.
  • ActDescription: The description of the activity.
  • ActType: The type of activity, represented as an enumeration.
  • ActDeductible: The invoicing type associated with the activity, represented as an enumeration.
  • ActWorkTypeCode: The work type code associated with the activity.
  • ActBudgetLineNo: The budget line number associated with the activity.
  • ActBudgetLineToDoNo: The to-do number associated with the budget line.
  • Source: The source of the activity, which can be one of several options such as Purchase, Sales, Service, etc.

GetActivityForJobTimeJournalLine(Record KVSPSAJobTimeJournalLine) :#

Summary: Get activity for job time journal line.

procedure GetActivityForJobTimeJournalLine(var JobTimeJournalLine: Record "KVSPSAJobTimeJournalLine"):

Parameters:

  • JobTimeJournalLine:

GetChosenRecords(Record KVSPSAWork Package, Record KVSPSAJobPSPLine, Record KVSPSA Job Budget Line) :#

Summary: GetChosenRecords retrieves the currently chosen records for work package, job PSP line, and job budget line. This procedure is used to access the global variables that store the currently selected records.

procedure GetChosenRecords(var NewWorkPackage: Record "KVSPSAWork Package"; var NewJobPSPLine: Record "KVSPSAJobPSPLine"; var NewJobBudgetLine: Record "KVSPSA Job Budget Line"):

Parameters:

  • NewWorkPackage: The work package record to be returned.
  • NewJobPSPLine: The job PSP line record to be returned.
  • NewJobBudgetLine: The job budget line record to be returned.

GetTempBudgetLinesForJob(Record Job, Record KVSPSA Job Budget Line, Boolean) :#

Summary: GetTempBudgetLinesForJob retrieves temporary budget lines for a specific job. It populates the JobBudgetLine record with budget lines that are active and in progress. It also retrieves job PSP lines and sets the job budget line for each activity.

procedure GetTempBudgetLinesForJob(Job: Record "Job"; var JobBudgetLine: Record "KVSPSA Job Budget Line"; IsResource: Boolean):

Parameters:

  • Job: The job record for which to retrieve budget lines.
  • JobBudgetLine: The record where the budget lines will be stored.
  • IsResource: Indicates whether the budget lines are for resources.

SetChosenRecords(Record KVSPSAWork Package, Record KVSPSAJobPSPLine, Record KVSPSA Job Budget Line) :#

Summary: SetChosenRecords sets the currently chosen records for work package, job PSP line, and job budget line. This procedure is used to update the global variables that store the currently selected records.

procedure SetChosenRecords(var NewWorkPackage: Record "KVSPSAWork Package"; var NewJobPSPLine: Record "KVSPSAJobPSPLine"; var NewJobBudgetLine: Record "KVSPSA Job Budget Line"):

Parameters:

  • NewWorkPackage: The new work package record to be set.
  • NewJobPSPLine: The new job PSP line record to be set.
  • NewJobBudgetLine: The new job budget line record to be set.

SetHideDialogConfirms(Boolean, Boolean, Boolean) :#

Summary: SetHideDialogConfirms sets the global flags for hiding dialog confirms and forms.

procedure SetHideDialogConfirms(NewHideDialogConfirms: Boolean; NewNewPricesInResLines: Boolean; NewDescription: Boolean):

Parameters:

  • NewHideDialogConfirms: Indicates whether to hide dialog confirms.
  • NewNewPricesInResLines: Indicates whether to use new prices in resource lines.
  • NewDescription: Indicates whether to set a new description.

SetHideDialogForms(Boolean) :#

Summary: SetHideDialogForms sets the global flag for hiding dialog forms. This procedure is used to control whether dialog forms should be displayed or not.

procedure SetHideDialogForms(NewHideDialogForms: Boolean):

Parameters:

  • NewHideDialogForms: Indicates whether to hide dialog forms.

Events#

KVSPSAOnAfterExistingSalesDocumentTextFilteredInTransferDocumentText(Record Sales Line, Record KVSKBASalesDocumentText, Enum KVSKBATextPosition) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterExistingSalesDocumentTextFilteredInTransferDocumentText(SalesLine: Record "Sales Line"; var KVSKBASalesDocumentText: Record "KVSKBASalesDocumentText"; CurrTextPosition: Enum "KVSKBATextPosition"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnAfterExistingSalesDocumentTextFilteredInTransferDocumentText', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterExistingSalesDocumentTextFilteredInTransferDocumentText(SalesLine: Record "Sales Line"; var KVSKBASalesDocumentText: Record "KVSKBASalesDocumentText"; CurrTextPosition: Enum "KVSKBATextPosition")
begin
end;

KVSPSAOnAfterFilterTempBudgetLines(Record KVSPSA Job Budget Line, Boolean, Code[20], Code[20], Code[20], Code[20], Code[20], Code[20], Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterFilterTempBudgetLines(var JobBudgetLine: Record "KVSPSA Job Budget Line"; IsResource: Boolean; ResourceNo: Code[20]; ToDoNo: Code[20]; WorkPackageCode: Code[20]; PhaseCode: Code[20]; TaskCode: Code[20]; StepCode: Code[20]; JobDocument: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnAfterFilterTempBudgetLines', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterFilterTempBudgetLines(var JobBudgetLine: Record "KVSPSA Job Budget Line"; IsResource: Boolean; ResourceNo: Code[20]; ToDoNo: Code[20]; WorkPackageCode: Code[20]; PhaseCode: Code[20]; TaskCode: Code[20]; StepCode: Code[20]; JobDocument: Boolean)
begin
end;

KVSPSAOnAfterGetActivityForGenJournalLine(Record Gen. Journal Line) :#

Summary: Allows additional transfer of information. the chosen wbs line must be read from the Gen Journal line

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterGetActivityForGenJournalLine(var GenJournalLine: Record "Gen. Journal Line"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnAfterGetActivityForGenJournalLine', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterGetActivityForGenJournalLine(var GenJournalLine: Record "Gen. Journal Line")
begin
end;

Parameters:

  • GenJournalLine:

KVSPSAOnAfterGetActivityForJobDocumentLine(Record KVSPSAJob Document Line) :#

Summary: Allows additional transfer of information. the chosen wbs line must be read from the Job Document Line

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterGetActivityForJobDocumentLine(var JobDocumentLine: Record "KVSPSAJob Document Line"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnAfterGetActivityForJobDocumentLine', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterGetActivityForJobDocumentLine(var JobDocumentLine: Record "KVSPSAJob Document Line")
begin
end;

Parameters:

  • JobDocumentLine:

KVSPSAOnAfterGetActivityForJobPaymentPlanningEntry(Record KVSPSAJobPaymentPlanningEntry) :#

Summary: Allows additional transfer of information. the chosen wbs line must be read from the JobPaymentPlanningEntry After this event, the target wbs line has been chosen (or not).

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterGetActivityForJobPaymentPlanningEntry(var JobPaymentPlanningEntry: Record "KVSPSAJobPaymentPlanningEntry"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnAfterGetActivityForJobPaymentPlanningEntry', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterGetActivityForJobPaymentPlanningEntry(var JobPaymentPlanningEntry: Record "KVSPSAJobPaymentPlanningEntry")
begin
end;

Parameters:

  • JobPaymentPlanningEntry:

KVSPSAOnAfterGetActivityForJobPaymentPlanningEntrySource(Record KVSPSAJobPaymentPlanningEntry) :#

Summary: Allows additional transfer of information. the chosen wbs line must be read from the Job Payment planning Entry After this event, the source wbs line has been chosen (or not).

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterGetActivityForJobPaymentPlanningEntrySource(var JobPaymentPlanningEntry: Record "KVSPSAJobPaymentPlanningEntry"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnAfterGetActivityForJobPaymentPlanningEntrySource', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterGetActivityForJobPaymentPlanningEntrySource(var JobPaymentPlanningEntry: Record "KVSPSAJobPaymentPlanningEntry")
begin
end;

Parameters:

  • JobPaymentPlanningEntry:

KVSPSAOnAfterSalesLineActivitySelected(Record Sales Header, Record Sales Line) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterSalesLineActivitySelected(SalesHeader: Record "Sales Header"; var SalesLine: Record "Sales Line"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnAfterSalesLineActivitySelected', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterSalesLineActivitySelected(SalesHeader: Record "Sales Header"; var SalesLine: Record "Sales Line")
begin
end;

KVSPSAOnAfterSetBudgetLineFilterInGetActivity(Record KVSPSA Job Budget Line, Option) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterSetBudgetLineFilterInGetActivity(var JobBudgetLine: Record "KVSPSA Job Budget Line"; Source: Option): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnAfterSetBudgetLineFilterInGetActivity', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterSetBudgetLineFilterInGetActivity(var JobBudgetLine: Record "KVSPSA Job Budget Line"; Source: Option)
begin
end;

KVSPSAOnAfterSetPostingLevelBeforeGetActivity(Enum KVSPSAPostingLevel, Option) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterSetPostingLevelBeforeGetActivity(var PostingLevel: Enum "KVSPSAPostingLevel"; Source: Option): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnAfterSetPostingLevelBeforeGetActivity', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterSetPostingLevelBeforeGetActivity(var PostingLevel: Enum "KVSPSAPostingLevel"; Source: Option)
begin
end;

KVSPSAOnAfterSetWBSLineFilterInGetActivity(Record KVSPSAJobPSPLine, Option) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterSetWBSLineFilterInGetActivity(var JobPSPLine: Record "KVSPSAJobPSPLine"; Source: Option): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnAfterSetWBSLineFilterInGetActivity', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterSetWBSLineFilterInGetActivity(var JobPSPLine: Record "KVSPSAJobPSPLine"; Source: Option)
begin
end;

KVSPSAOnBeforeCheckJobTeamFilterOnTimePostInGetActivityTime(Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeCheckJobTeamFilterOnTimePostInGetActivityTime(var SkipCheckJobTeamFilterOnTimePost: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnBeforeCheckJobTeamFilterOnTimePostInGetActivityTime', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCheckJobTeamFilterOnTimePostInGetActivityTime(var SkipCheckJobTeamFilterOnTimePost: Boolean)
begin
end;

KVSPSAOnBeforeConfirmTransferDescription(RecordId, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeConfirmTransferDescription(SourceRecordID: RecordId; var ConfirmedQuestion: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnBeforeConfirmTransferDescription', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeConfirmTransferDescription(SourceRecordID: RecordId; var ConfirmedQuestion: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeConfirmTransferDocumentText(RecordId, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeConfirmTransferDocumentText(SourceRecordID: RecordId; var TransferDocumentText: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnBeforeConfirmTransferDocumentText', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeConfirmTransferDocumentText(SourceRecordID: RecordId; var TransferDocumentText: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforePrepareActivities(Code[20], Enum KVSPSAActType, Code[20], Record KVSPSA Job Budget Line, Record Sales Line, Boolean) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforePrepareActivities(JobNo: Code[20]; ActType: Enum "KVSPSAActType"; ActNo: Code[20]; var JobBudgetLine: Record "KVSPSA Job Budget Line"; SalesLine: Record "Sales Line"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnBeforePrepareActivities', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforePrepareActivities(JobNo: Code[20]; ActType: Enum "KVSPSAActType"; ActNo: Code[20]; var JobBudgetLine: Record "KVSPSA Job Budget Line"; SalesLine: Record "Sales Line"; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeTransferJobBudgetLineFields(Record KVSPSA Job Budget Line, Code[20]) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeTransferJobBudgetLineFields(var JobBudgetLine: Record "KVSPSA Job Budget Line"; ResourceNo: Code[20]): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnBeforeTransferJobBudgetLineFields', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeTransferJobBudgetLineFields(var JobBudgetLine: Record "KVSPSA Job Budget Line"; ResourceNo: Code[20])
begin
end;

KVSPSAOnSetFilterOnBudgetLineOnPrepareActivities(Record Jobs Setup, Record KVSPSA Job Budget Line, Record Sales Line) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnSetFilterOnBudgetLineOnPrepareActivities(JobsSetup: Record "Jobs Setup"; var JobBudgetLine: Record "KVSPSA Job Budget Line"; SalesLine: Record "Sales Line"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnSetFilterOnBudgetLineOnPrepareActivities', '', false, false)]
local procedure DoSomethingKVSPSAOnSetFilterOnBudgetLineOnPrepareActivities(JobsSetup: Record "Jobs Setup"; var JobBudgetLine: Record "KVSPSA Job Budget Line"; SalesLine: Record "Sales Line")
begin
end;

KVSPSAOnSetFilterOnWBSLineOnPrepareActivities(Record KVSPSAJobPSPLine, Record Sales Line) :#

[IntegrationEvent(false, false)]
local procedure KVSPSAOnSetFilterOnWBSLineOnPrepareActivities(var JobPSPLine: Record "KVSPSAJobPSPLine"; SalesLine: Record "Sales Line"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAGet Activity Management", 'KVSPSAOnSetFilterOnWBSLineOnPrepareActivities', '', false, false)]
local procedure DoSomethingKVSPSAOnSetFilterOnWBSLineOnPrepareActivities(var JobPSPLine: Record "KVSPSAJobPSPLine"; SalesLine: Record "Sales Line")
begin
end;