KVSPSA Mandatory Fields Lib#
Procedures#
CheckMandatoryFieldsJob(Record Job, Boolean, Boolean) :#
Summary: This procedure checks the mandatory fields for a job.
procedure CheckMandatoryFieldsJob(var Job: Record "Job"; ShowFoundFields: Boolean; ChangeFieldsInRec: Boolean):
Parameters:
Job
: Record used for run procedure.ShowFoundFields
: Boolean used for specific if procedure show open new page.ChangeFieldsInRec
: Boolean used for specific if procedure should modify Job.
FinishJob(Record Job) :#
Summary: Used to check if the mandatory fields are filled in when the job is finished.
procedure FinishJob(var Job: Record "Job"):
Parameters:
Job
: The job record to check.
InitJobMandatoryFieldsCheckStatus(Record Job) :#
Summary: Initializes the mandatory fields check status for a job. If the job's maintenance status is "Maintenance Completed", it raises an error.
procedure InitJobMandatoryFieldsCheckStatus(var Job: Record "Job"):
Parameters:
Job
: Record used for run procedure.
BatchFinishGuarantee(Record KVSPSAGuarantee) :#
Summary: This procedure checks the mandatory fields for guarantees.
procedure BatchFinishGuarantee(var Guarantee: Record "KVSPSAGuarantee"):
Parameters:
Guarantee
: Record used for run procedure.
CheckMandatoryFieldsGuarantee(Record KVSPSAGuarantee, Boolean, Boolean) :#
Summary: This procedure checks the mandatory fields for a guarantee.
procedure CheckMandatoryFieldsGuarantee(var Guarantee: Record "KVSPSAGuarantee"; ShowFoundFields: Boolean; ChangeFieldsInRec: Boolean):
Parameters:
Guarantee
: Record used for run procedure.ShowFoundFields
: Boolean used for specific if procedure show open new page.ChangeFieldsInRec
: Boolean used for specific if procedure should modify Guarantee.
InitGuaranteeMandatoryFieldsCheckStatus(Record KVSPSAGuarantee) :#
Summary: Initializes the mandatory fields check status for a guarantee. If the guarantee's maintenance status is "Maintenance Completed", it raises an error.
procedure InitGuaranteeMandatoryFieldsCheckStatus(var Guarantee: Record "KVSPSAGuarantee"):
Parameters:
Guarantee
: Record used for run procedure.
Events#
KVSPSAOnBeforeCheckMandatoryFieldsJob(Record Job, Boolean, Boolean, Boolean) :#
Summary: Event fired before checking mandatory fields for a job record. Allows extensions to override or customize the mandatory field validation logic for jobs. This event enables custom validation of mandatory fields for job records, including the ability to modify field values and control validation behavior.
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeCheckMandatoryFieldsJob(var Job: Record "Job"; ShowFoundFields: Boolean; ChangeFieldsInRec: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSA Mandatory Fields Lib", 'KVSPSAOnBeforeCheckMandatoryFieldsJob', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCheckMandatoryFieldsJob(var Job: Record "Job"; ShowFoundFields: Boolean; ChangeFieldsInRec: Boolean; var IsHandled: Boolean)
begin
end;
Parameters:
Job
: The job record being validated for mandatory fields (passed by reference for modification).ShowFoundFields
: Boolean indicating whether found mandatory fields should be displayed to the user.ChangeFieldsInRec
: Boolean indicating whether field changes should be applied to the record.IsHandled
: Boolean flag (passed by reference) indicating whether the event subscriber has handled the mandatory field check and standard validation should be bypassed.
KVSPSAOnBeforeSetJobBlockedWhenMaintenanceComplete(Record Job, Boolean) :#
Summary: Event fired before setting job blocked status when maintenance is complete. Allows extensions to override or customize the job blocking logic after mandatory field maintenance. This event enables custom handling of job status changes when mandatory field maintenance activities have been completed successfully.
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeSetJobBlockedWhenMaintenanceComplete(var Job: Record "Job"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSA Mandatory Fields Lib", 'KVSPSAOnBeforeSetJobBlockedWhenMaintenanceComplete', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeSetJobBlockedWhenMaintenanceComplete(var Job: Record "Job"; var IsHandled: Boolean)
begin
end;
Parameters:
Job
: The job record for which blocking status is being set (passed by reference for modification).IsHandled
: Boolean flag (passed by reference) indicating whether the event subscriber has handled the job blocking logic and standard processing should be bypassed.
KVSPSAOnBeforeSetJobBlockedWhenMaintenanceInProgress(Record Job, Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeSetJobBlockedWhenMaintenanceInProgress(var Job: Record "Job"; MandatoryFieldsCheckIsRequired: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSA Mandatory Fields Lib", 'KVSPSAOnBeforeSetJobBlockedWhenMaintenanceInProgress', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeSetJobBlockedWhenMaintenanceInProgress(var Job: Record "Job"; MandatoryFieldsCheckIsRequired: Boolean; var IsHandled: Boolean)
begin
end;
KVSPSAOnBeforeValidateBlockedUserInJob(Record Job, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeValidateBlockedUserInJob(var Job: Record "Job"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSA Mandatory Fields Lib", 'KVSPSAOnBeforeValidateBlockedUserInJob', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeValidateBlockedUserInJob(var Job: Record "Job"; var IsHandled: Boolean)
begin
end;
KVSPSAOnBeforeCheckMandatoryFieldsGuarantee(Record KVSPSAGuarantee, Boolean, Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeCheckMandatoryFieldsGuarantee(var Guarantee: Record "KVSPSAGuarantee"; ShowFoundFields: Boolean; ChangeFieldsInRec: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSA Mandatory Fields Lib", 'KVSPSAOnBeforeCheckMandatoryFieldsGuarantee', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeCheckMandatoryFieldsGuarantee(var Guarantee: Record "KVSPSAGuarantee"; ShowFoundFields: Boolean; ChangeFieldsInRec: Boolean; var IsHandled: Boolean)
begin
end;
KVSPSAOnBeforeSetGuaranteeBlockedWhenMaintenanceComplete(Record KVSPSAGuarantee, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeSetGuaranteeBlockedWhenMaintenanceComplete(var Guarantee: Record "KVSPSAGuarantee"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSA Mandatory Fields Lib", 'KVSPSAOnBeforeSetGuaranteeBlockedWhenMaintenanceComplete', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeSetGuaranteeBlockedWhenMaintenanceComplete(var Guarantee: Record "KVSPSAGuarantee"; var IsHandled: Boolean)
begin
end;
KVSPSAOnBeforeSetGuaranteeBlockedWhenMaintenanceInProgress(Record KVSPSAGuarantee, Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeSetGuaranteeBlockedWhenMaintenanceInProgress(var Guarantee: Record "KVSPSAGuarantee"; MandatoryFieldsCheckIsRequired: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSA Mandatory Fields Lib", 'KVSPSAOnBeforeSetGuaranteeBlockedWhenMaintenanceInProgress', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeSetGuaranteeBlockedWhenMaintenanceInProgress(var Guarantee: Record "KVSPSAGuarantee"; MandatoryFieldsCheckIsRequired: Boolean; var IsHandled: Boolean)
begin
end;
KVSPSAOnBeforeValidateBlockedUserOfGuarantee(Record KVSPSAGuarantee, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeValidateBlockedUserOfGuarantee(var Guarantee: Record "KVSPSAGuarantee"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSA Mandatory Fields Lib", 'KVSPSAOnBeforeValidateBlockedUserOfGuarantee', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeValidateBlockedUserOfGuarantee(var Guarantee: Record "KVSPSAGuarantee"; var IsHandled: Boolean)
begin
end;