KVSPSAHR Cockpit#

Fields#

Name	Type	Note
Employee No.	Code[20]
Type	Option	OptionMembers: New,Update
Salesperson Code	Code[20]
Abbreviation	Code[10]
County	Text[30]
First Name	Text[50]
Last Name	Text[50]
Gender	Enum Employee Gender
Address	Text[100]
Post Code	Code[20]
City	Text[30]
E-Mail Business	Text[80]
E-Mail Private	Text[80]
Country/Region Code	Code[10]
Address 2	Text[50]
Emplymt. Contract Code	Code[10]
Phone No. Business	Text[30]
Phone No. Private	Text[30]
Mobile Phone No.	Text[30]
Birth Date	Date
Employment Date	Date
Job Title	Text[30]
Trainee	Boolean
Project Manager	Boolean
No. Series	Code[20]
Show in Planning Board	Boolean
Create Resource	Boolean
Create SalesPerson	Boolean
Last Collect User	Code[50]
Last Collect Date	Date
Last Update	Code[50]
Last Update Date	Date
Direct Unit Cost	Decimal
Unit Price	Decimal
Social Security No.	Text[30]
Authentication Email O365	Text[250]
Base Calendar Code	Code[10]
Base Calendar PSA Code	Code[10]
Useable in Sales	Boolean
Resource Group No.	Code[20]
Record Creation Date	Date
Record Creation UserID	Code[50]
Employee Creation Date	Date
Employee Creation UserID	Code[50]
Employee Posting Group	Code[20]
Status	Enum Employee Status
Inactive Date	Date
Cause of Inactivity Code	Code[10]
Termination Date	Date
Grounds for Term. Code	Code[10]
Blocked	Boolean
Gen. Prod. Posting Group	Code[20]
Working Hour Template	Code[10]
Create Capacity	Boolean
Starting Date Capacity	Date
Ending Date Capacity	Date
Product Commission Code	Code[10]
User ID	Code[50]
Resource No.	Code[20]
Time Inspector	Code[20]
Substitute Time Inspector	Code[20]
Create Invoice Suggestion Name	Boolean
Break Time Setting	Code[20]

Procedures#

CheckField(Integer, Enum KVSPSAHRCockpitTypeOfFieldCheck) :#

Summary: This procedure checks the specified field in the record based on the type of check.

Syntax

procedure CheckField(FieldNo: Integer; TypeOfCheck: Enum "KVSPSAHRCockpitTypeOfFieldCheck"):

Parameters:

FieldNo: Integer representing the field number to check.
TypeOfCheck: Enum representing the type of check to perform.

ConfirmConnectionLoss() : Boolean#

Summary: This procedure confirms if the user wants to continue with the operation despite potential connection loss.

Syntax

procedure ConfirmConnectionLoss(): Boolean

Returns: Return result of confirmation.

CopyDefaultDim(Integer, Code[20], Integer, Code[20]) :#

Summary: This procedure copies default dimensions from one record to another.

Syntax

procedure CopyDefaultDim(SourceTable: Integer; SourceNo: Code[20]; TargetTable: Integer; TargetNo: Code[20]):

Parameters:

SourceTable: Integer representing the source table ID.
SourceNo: Code representing the source record number.
TargetTable: Integer representing the target table ID.
TargetNo: Code representing the target record number.

FillGlobalDims(Code[20], Code[20]) :#

Summary: This procedure set value of GlobDim1Code and GlobDim2Code based on the global dimension codes from the General Ledger Setup and some conditions.

Syntax

procedure FillGlobalDims(var GlobDim1Code: Code[20]; var GlobDim2Code: Code[20]):

Parameters:

GlobDim1Code: Code pass to store the value of Global Dimension 1 Code.
GlobDim2Code: Code pass to store the value of Global Dimension 2 Code.

GetFullName(Integer) : Text#

Summary: This procedure return full name of the employee based with length depend on MaxLength parameter.

Syntax

procedure GetFullName(MaxLength: Integer): Text

Parameters:

MaxLength: Integer representing the maximum length of the returned name.

Returns: Text representing the full name of the employee.

IsNameChangeValid(Text, Text, Text) : Boolean#

Summary: This procedure checks if a name change is valid by comparing the existing name with the new name.

Syntax

procedure IsNameChangeValid(ExistingNameText: Text; NewName: Text; ComparedToTableCaption: Text): Boolean

Parameters:

ExistingNameText: Text representing the existing name.
NewName: Text representing the new name.
ComparedToTableCaption: Text used for show in confirmation dialog.

Returns: Return result if the name is valid or not.

SetSkipConfirmationOnInsert(Boolean) :#

Summary: This procedure sets value of GlobalSkipConfirmationOnInsert.

Syntax

procedure SetSkipConfirmationOnInsert(NewSkipConfirmationOnInsert: Boolean):

Parameters:

NewSkipConfirmationOnInsert: Boolean representing the new value to set for GlobalSkipConfirmationOnInsert.

ShowShortcutDimCode(Code[20]) :#

Summary: This procedure retrieves Shortcut Dimension from General Ledger Setup to provide array.

Syntax

procedure ShowShortcutDimCode(var ShortcutDimCode: Code[20]):

Parameters:

ShortcutDimCode: Array used for storing the shortcut dimension codes.

TransferData() :#

Summary: This procedure transfers data from the "KVSPSAHR Cockpit" table to the relevant tables.

Syntax

procedure TransferData():

Events#

KVSPSAOnAfterCopyDefaultDim(Integer, Code[20], Integer, Code[20]) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCopyDefaultDim(SourceTable: Integer; SourceNo: Code[20]; TargetTable: Integer; TargetNo: Code[20]):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnAfterCopyDefaultDim', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCopyDefaultDim(SourceTable: Integer; SourceNo: Code[20]; TargetTable: Integer; TargetNo: Code[20])
begin
end;

KVSPSAOnAfterCreatedButNotDeletedRecords(Record KVSPSAHR Cockpit) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterCreatedButNotDeletedRecords(var HRCockpit: Record "KVSPSAHR Cockpit"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnAfterCreatedButNotDeletedRecords', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterCreatedButNotDeletedRecords(var HRCockpit: Record "KVSPSAHR Cockpit")
begin
end;

KVSPSAOnAfterInsertDimensionValueRecord(Record KVSPSAHR Cockpit, Record Default Dimension) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterInsertDimensionValueRecord(var HRCockpit: Record "KVSPSAHR Cockpit"; DefaultDimension: Record "Default Dimension"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnAfterInsertDimensionValueRecord', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterInsertDimensionValueRecord(var HRCockpit: Record "KVSPSAHR Cockpit"; DefaultDimension: Record "Default Dimension")
begin
end;

KVSPSAOnBeforeCheckField(Record KVSPSAHR Cockpit, Integer, Enum KVSPSAHRCockpitTypeOfFieldCheck, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeCheckField(HRCockpit: Record "KVSPSAHR Cockpit"; FieldNo: Integer; var HRCockpitTypeOfFieldCheck: Enum "KVSPSAHRCockpitTypeOfFieldCheck"; var IsHandled: Boolean):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnBeforeCheckField', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCheckField(HRCockpit: Record "KVSPSAHR Cockpit"; FieldNo: Integer; var HRCockpitTypeOfFieldCheck: Enum "KVSPSAHRCockpitTypeOfFieldCheck"; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeCheckNecessaryFields(Record KVSPSAHR Cockpit, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeCheckNecessaryFields(var HRCockpit: Record "KVSPSAHR Cockpit"; var IsHandled: Boolean):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnBeforeCheckNecessaryFields', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCheckNecessaryFields(var HRCockpit: Record "KVSPSAHR Cockpit"; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeConfirmAfterSuccessfulTransfer(Record KVSPSAHR Cockpit, Boolean, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeConfirmAfterSuccessfulTransfer(var HRCockpit: Record "KVSPSAHR Cockpit"; var Confirmed: Boolean; var IsHandled: Boolean):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnBeforeConfirmAfterSuccessfulTransfer', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeConfirmAfterSuccessfulTransfer(var HRCockpit: Record "KVSPSAHR Cockpit"; var Confirmed: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeConfirmConnectionLos(Record KVSPSAHR Cockpit, Boolean, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeConfirmConnectionLos(var HRCockpit: Record "KVSPSAHR Cockpit"; var Confirmed: Boolean; var IsHandled: Boolean):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnBeforeConfirmConnectionLos', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeConfirmConnectionLos(var HRCockpit: Record "KVSPSAHR Cockpit"; var Confirmed: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeConfirmStartUpdate(Record KVSPSAHR Cockpit, Boolean, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeConfirmStartUpdate(var HRCockpit: Record "KVSPSAHR Cockpit"; var StartUpdate: Boolean; var IsHandled: Boolean):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnBeforeConfirmStartUpdate', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeConfirmStartUpdate(var HRCockpit: Record "KVSPSAHR Cockpit"; var StartUpdate: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeCreateSalesPersonOnUpsertSalesPerson(Record KVSPSAHR Cockpit, Record Salesperson/Purchaser) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeCreateSalesPersonOnUpsertSalesPerson(var HRCockpit: Record "KVSPSAHR Cockpit"; var SalespersonPurchaser: Record "Salesperson/Purchaser"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnBeforeCreateSalesPersonOnUpsertSalesPerson', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCreateSalesPersonOnUpsertSalesPerson(var HRCockpit: Record "KVSPSAHR Cockpit"; var SalespersonPurchaser: Record "Salesperson/Purchaser")
begin
end;

KVSPSAOnBeforeIsNameChangeValid(Record KVSPSAHR Cockpit, Text, Text, Text, Boolean, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeIsNameChangeValid(var HRCockpit: Record "KVSPSAHR Cockpit"; ExistingNameText: Text; NewName: Text; ComparedToTableCaption: Text; var NameChangeOk: Boolean; var IsHandled: Boolean):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnBeforeIsNameChangeValid', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeIsNameChangeValid(var HRCockpit: Record "KVSPSAHR Cockpit"; ExistingNameText: Text; NewName: Text; ComparedToTableCaption: Text; var NameChangeOk: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeTestResName(Record KVSPSAHR Cockpit, Boolean, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeTestResName(var HRCockpit: Record "KVSPSAHR Cockpit"; var NameChangeOk: Boolean; var IsHandled: Boolean):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnBeforeTestResName', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeTestResName(var HRCockpit: Record "KVSPSAHR Cockpit"; var NameChangeOk: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeTestSPName(Record KVSPSAHR Cockpit, Boolean, Boolean) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeTestSPName(var HRCockpit: Record "KVSPSAHR Cockpit"; var NameChangeOk: Boolean; var IsHandled: Boolean):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnBeforeTestSPName', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeTestSPName(var HRCockpit: Record "KVSPSAHR Cockpit"; var NameChangeOk: Boolean; var IsHandled: Boolean)
begin
end;

KVSPSAOnBeforeUpdateUser(Record KVSPSAHR Cockpit, Boolean) :#

Summary: Event to be used to handle the update of the user ID. If the user ID is changed, the authentication email is updated.

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeUpdateUser(HRCockpit: Record "KVSPSAHR Cockpit"; var IsHandled: Boolean):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnBeforeUpdateUser', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeUpdateUser(HRCockpit: Record "KVSPSAHR Cockpit"; var IsHandled: Boolean)
begin
end;

Parameters:

HRCockpit:
IsHandled:

KVSPSAOnBeforeUpsertTables(Record KVSPSAHR Cockpit, Record KVSPSAHR Cockpit Setup) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeUpsertTables(var HRCockpit: Record "KVSPSAHR Cockpit"; var HRCockpitSetup: Record "KVSPSAHR Cockpit Setup"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnBeforeUpsertTables', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeUpsertTables(var HRCockpit: Record "KVSPSAHR Cockpit"; var HRCockpitSetup: Record "KVSPSAHR Cockpit Setup")
begin
end;

KVSPSAOnCheckEmployeeDimension(Record KVSPSAHR Cockpit) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnCheckEmployeeDimension(var HRCockpit: Record "KVSPSAHR Cockpit"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnCheckEmployeeDimension', '', false, false)]
local procedure DoSomethingKVSPSAOnCheckEmployeeDimension(var HRCockpit: Record "KVSPSAHR Cockpit")
begin
end;

KVSPSAOnCheckNecessaryFields(Record KVSPSAHR Cockpit) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnCheckNecessaryFields(var HRCockpit: Record "KVSPSAHR Cockpit"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnCheckNecessaryFields', '', false, false)]
local procedure DoSomethingKVSPSAOnCheckNecessaryFields(var HRCockpit: Record "KVSPSAHR Cockpit")
begin
end;

KVSPSAOnFillFieldsFromEmployee(Record KVSPSAHR Cockpit, Record Employee) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnFillFieldsFromEmployee(var HRCockpit: Record "KVSPSAHR Cockpit"; Employee: Record "Employee"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnFillFieldsFromEmployee', '', false, false)]
local procedure DoSomethingKVSPSAOnFillFieldsFromEmployee(var HRCockpit: Record "KVSPSAHR Cockpit"; Employee: Record "Employee")
begin
end;

KVSPSAOnFillFieldsFromResource(Record KVSPSAHR Cockpit, Record Resource) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnFillFieldsFromResource(var HRCockpit: Record "KVSPSAHR Cockpit"; Resource: Record "Resource"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnFillFieldsFromResource', '', false, false)]
local procedure DoSomethingKVSPSAOnFillFieldsFromResource(var HRCockpit: Record "KVSPSAHR Cockpit"; Resource: Record "Resource")
begin
end;

KVSPSAOnInitExistingEmployee(Record KVSPSAHR Cockpit, Record KVSPSAHR Cockpit Setup) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnInitExistingEmployee(var HRCockpit: Record "KVSPSAHR Cockpit"; var HRCockpitSetup: Record "KVSPSAHR Cockpit Setup"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnInitExistingEmployee', '', false, false)]
local procedure DoSomethingKVSPSAOnInitExistingEmployee(var HRCockpit: Record "KVSPSAHR Cockpit"; var HRCockpitSetup: Record "KVSPSAHR Cockpit Setup")
begin
end;

KVSPSAOnInitNewEmployee(Record KVSPSAHR Cockpit, Record KVSPSAHR Cockpit Setup) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnInitNewEmployee(var HRCockpit: Record "KVSPSAHR Cockpit"; var HRCockpitSetup: Record "KVSPSAHR Cockpit Setup"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnInitNewEmployee', '', false, false)]
local procedure DoSomethingKVSPSAOnInitNewEmployee(var HRCockpit: Record "KVSPSAHR Cockpit"; var HRCockpitSetup: Record "KVSPSAHR Cockpit Setup")
begin
end;

KVSPSAOnUnhandledTypeOfCheck(Record KVSPSAHR Cockpit, Integer, Enum KVSPSAHRCockpitTypeOfFieldCheck) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnUnhandledTypeOfCheck(HRCockpit: Record "KVSPSAHR Cockpit"; FieldNo: Integer; HRCockpitTypeOfFieldCheck: Enum "KVSPSAHRCockpitTypeOfFieldCheck"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnUnhandledTypeOfCheck', '', false, false)]
local procedure DoSomethingKVSPSAOnUnhandledTypeOfCheck(HRCockpit: Record "KVSPSAHR Cockpit"; FieldNo: Integer; HRCockpitTypeOfFieldCheck: Enum "KVSPSAHRCockpitTypeOfFieldCheck")
begin
end;

KVSPSAOnUpsertData(Record KVSPSAHR Cockpit, Record Employee) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnUpsertData(var HRCockpit: Record "KVSPSAHR Cockpit"; Employee: Record "Employee"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnUpsertData', '', false, false)]
local procedure DoSomethingKVSPSAOnUpsertData(var HRCockpit: Record "KVSPSAHR Cockpit"; Employee: Record "Employee")
begin
end;

KVSPSAOnUpsertDataAfterCommit(Record KVSPSAHR Cockpit, Record Employee) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnUpsertDataAfterCommit(var HRCockpit: Record "KVSPSAHR Cockpit"; Employee: Record "Employee"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnUpsertDataAfterCommit', '', false, false)]
local procedure DoSomethingKVSPSAOnUpsertDataAfterCommit(var HRCockpit: Record "KVSPSAHR Cockpit"; Employee: Record "Employee")
begin
end;

KVSPSAOnUpsertEmployeeAfterModifyEmployee(Record KVSPSAHR Cockpit, Record Employee) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnUpsertEmployeeAfterModifyEmployee(var HRCockpit: Record "KVSPSAHR Cockpit"; var Employee: Record "Employee"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnUpsertEmployeeAfterModifyEmployee', '', false, false)]
local procedure DoSomethingKVSPSAOnUpsertEmployeeAfterModifyEmployee(var HRCockpit: Record "KVSPSAHR Cockpit"; var Employee: Record "Employee")
begin
end;

KVSPSAOnUpsertEmployeeBeforeModifyEmployee(Record KVSPSAHR Cockpit, Record Employee) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnUpsertEmployeeBeforeModifyEmployee(var HRCockpit: Record "KVSPSAHR Cockpit"; var Employee: Record "Employee"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnUpsertEmployeeBeforeModifyEmployee', '', false, false)]
local procedure DoSomethingKVSPSAOnUpsertEmployeeBeforeModifyEmployee(var HRCockpit: Record "KVSPSAHR Cockpit"; var Employee: Record "Employee")
begin
end;

KVSPSAOnUpsertResourceAfterModifyResource(Record KVSPSAHR Cockpit, Record Resource) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnUpsertResourceAfterModifyResource(var HRCockpit: Record "KVSPSAHR Cockpit"; var Resource: Record "Resource"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnUpsertResourceAfterModifyResource', '', false, false)]
local procedure DoSomethingKVSPSAOnUpsertResourceAfterModifyResource(var HRCockpit: Record "KVSPSAHR Cockpit"; var Resource: Record "Resource")
begin
end;

KVSPSAOnUpsertResourceBeforeModifyResource(Record KVSPSAHR Cockpit, Record Resource) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnUpsertResourceBeforeModifyResource(var HRCockpit: Record "KVSPSAHR Cockpit"; var Resource: Record "Resource"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnUpsertResourceBeforeModifyResource', '', false, false)]
local procedure DoSomethingKVSPSAOnUpsertResourceBeforeModifyResource(var HRCockpit: Record "KVSPSAHR Cockpit"; var Resource: Record "Resource")
begin
end;

KVSPSAOnUpsertSalesPersonAfterModifySalesPerson(Record KVSPSAHR Cockpit, Record Salesperson/Purchaser) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnUpsertSalesPersonAfterModifySalesPerson(var HRCockpit: Record "KVSPSAHR Cockpit"; var SalespersonPurchaser: Record "Salesperson/Purchaser"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnUpsertSalesPersonAfterModifySalesPerson', '', false, false)]
local procedure DoSomethingKVSPSAOnUpsertSalesPersonAfterModifySalesPerson(var HRCockpit: Record "KVSPSAHR Cockpit"; var SalespersonPurchaser: Record "Salesperson/Purchaser")
begin
end;

KVSPSAOnUpsertSalesPersonBeforeModifySalesPerson(Record KVSPSAHR Cockpit, Record Salesperson/Purchaser) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnUpsertSalesPersonBeforeModifySalesPerson(var HRCockpit: Record "KVSPSAHR Cockpit"; var SalespersonPurchaser: Record "Salesperson/Purchaser"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnUpsertSalesPersonBeforeModifySalesPerson', '', false, false)]
local procedure DoSomethingKVSPSAOnUpsertSalesPersonBeforeModifySalesPerson(var HRCockpit: Record "KVSPSAHR Cockpit"; var SalespersonPurchaser: Record "Salesperson/Purchaser")
begin
end;

KVSPSAOnUpsertUserSetupAfterModifySetup(Record KVSPSAHR Cockpit, Record User Setup) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnUpsertUserSetupAfterModifySetup(var HRCockpit: Record "KVSPSAHR Cockpit"; var UserSetup: Record "User Setup"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnUpsertUserSetupAfterModifySetup', '', false, false)]
local procedure DoSomethingKVSPSAOnUpsertUserSetupAfterModifySetup(var HRCockpit: Record "KVSPSAHR Cockpit"; var UserSetup: Record "User Setup")
begin
end;

KVSPSAOnUpsertUserSetupBeforeModifySetup(Record KVSPSAHR Cockpit, Record User Setup) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnUpsertUserSetupBeforeModifySetup(var HRCockpit: Record "KVSPSAHR Cockpit"; var UserSetup: Record "User Setup"):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnUpsertUserSetupBeforeModifySetup', '', false, false)]
local procedure DoSomethingKVSPSAOnUpsertUserSetupBeforeModifySetup(var HRCockpit: Record "KVSPSAHR Cockpit"; var UserSetup: Record "User Setup")
begin
end;

KVSPSAOnValidateShortcutDimCodeBeforeModifyRecord(Record KVSPSAHR Cockpit, Integer, Code[20]) :#

SyntaxSubscriber

[IntegrationEvent(false, false)]
local procedure KVSPSAOnValidateShortcutDimCodeBeforeModifyRecord(var HRCockpit: Record "KVSPSAHR Cockpit"; FieldNumber: Integer; var ShortcutDimCode: Code[20]):

[EventSubscriber(ObjectType::Table, Table::"KVSPSAHR Cockpit", 'KVSPSAOnValidateShortcutDimCodeBeforeModifyRecord', '', false, false)]
local procedure DoSomethingKVSPSAOnValidateShortcutDimCodeBeforeModifyRecord(var HRCockpit: Record "KVSPSAHR Cockpit"; FieldNumber: Integer; var ShortcutDimCode: Code[20])
begin
end;