Skip to content

KVSKBAMandatoryFieldsLib#

Procedures#

EditCust(Record Customer) :#

Summary: Use this procedure to edit a customer with mandatory Fields function

procedure EditCust(var Customer: Record "Customer"):

Parameters:

  • Customer: The Customer that should be editable

BatchFinishCust(Record Customer) :#

procedure BatchFinishCust(var Customer: Record "Customer"):

FinishCust(Record Customer) :#

procedure FinishCust(var Customer: Record "Customer"):

EditVend(Record Vendor) :#

procedure EditVend(var Vendor: Record "Vendor"):

BatchFinishVend(Record Vendor) :#

procedure BatchFinishVend(var Vendor: Record "Vendor"):

FinishVend(Record Vendor) :#

procedure FinishVend(var Vendor: Record "Vendor"):

EditItem(Record Item) :#

Summary: Use this function to edit a item with Mandatory Fields function

procedure EditItem(var Item: Record "Item"):

Parameters:

  • Item: The Item that should be editable

BatchFinishItem(Record Item) :#

procedure BatchFinishItem(var Item: Record "Item"):

FinishItem(Record Item) :#

procedure FinishItem(var Item: Record "Item"):

CheckMandatoryFieldsItem(Record Item, Boolean, Boolean) :#

procedure CheckMandatoryFieldsItem(var Item: Record "Item"; ShowFoundFields: Boolean; ChangeFieldsInRec: Boolean):

CheckMandatoryFieldsSalesDoc(Record Sales Header, Boolean) : Boolean#

Summary: Within this procedure, the mandatory field check for sales documents is done.

procedure CheckMandatoryFieldsSalesDoc(SalesHeader: Record "Sales Header"; ShowFoundFields: Boolean): Boolean

Parameters:

  • recRef: SalesHeader: Contains the Sales Header that has to be checked
  • recRef: ShowFoundFields: Specifies if mandatory fields are shown after check is done

Returns: true if the mandatory field check succeeded without errors else false

CheckMandatoryFieldsPurchDoc(Record Purchase Header, Boolean) : Boolean#

Summary: Within this procedure, the mandatory field check for purchase documents is done.

procedure CheckMandatoryFieldsPurchDoc(PurchaseHeader: Record "Purchase Header"; ShowFoundFields: Boolean): Boolean

Parameters:

  • recRef: PurchaseHeader: Contains the Purchase Header that has to be checked
  • recRef: ShowFoundFields: Specifies if mandatory fields are shown after check is done

Returns: true if the mandatory field check succeeded without errors else false

CheckMandatoryFieldsWhseRcpt(Record Warehouse Receipt Header, Boolean) : Boolean#

procedure CheckMandatoryFieldsWhseRcpt(WarehouseReceiptHeader: Record "Warehouse Receipt Header"; ShowFoundFields: Boolean): Boolean

CheckMandatoryFieldsOrderQuote(Record KVSKBAOrderQuote, Boolean) : Boolean#

Summary: Use this function to check the mandatory fields for Purchase Request

procedure CheckMandatoryFieldsOrderQuote(OrderQuote: Record "KVSKBAOrderQuote"; ShowFoundFields: Boolean): Boolean

Parameters:

  • OrderQuote: Purchase Request to check.
  • ShowFoundFields: Specifies whether the fields that do not fulfill the conditions should be displayed.

Returns:

CheckMandatoryFields(RecordRef, Record KVSKBAMandatoryFieldCheckEntry, Enum KVSKBAIntegerAsEnum, Code[20], Integer, Integer, Text[250]) : Boolean#

procedure CheckMandatoryFields(RecRefPar: RecordRef; var MandatoryFieldCheckEntry: Record "KVSKBAMandatoryFieldCheckEntry"; DocType: Enum "KVSKBAIntegerAsEnum"; DocNo: Code[20]; DocLineNo: Integer; DocSubLineNo: Integer; DocDescription: Text[250]): Boolean

FieldsConditionTest(RecordRef, Record KVSKBAMandatoryCheckField) : Boolean#

procedure FieldsConditionTest(RecRef: RecordRef; MandatoryCheckField: Record "KVSKBAMandatoryCheckField"): Boolean

AnalyzeAndShowMandCheckEntries(Record KVSKBAMandatoryFieldCheckEntry, Boolean, Boolean) :#

procedure AnalyzeAndShowMandCheckEntries(var MandatoryFieldCheckEntry: Record "KVSKBAMandatoryFieldCheckEntry"; ShowFoundFields: Boolean; var Ok: Boolean):

SetItemMaintenanceAndBlockedWhenMandFieldsCheckFinished(Record Item) :#

Summary: Use this procedure set fields Maintenance and Blocked when mandatory fields check is complete or skipped

procedure SetItemMaintenanceAndBlockedWhenMandFieldsCheckFinished(var Item: Record "Item"):

Parameters:

  • Item: The Item that should be editable

EditResource(Record Resource) :#

Summary: Use this procedure to edit a resource with Mandatory Fields function

procedure EditResource(var Resource: Record "Resource"):

Parameters:

  • Resource: The resource that should be editable

FinishResource(Record Resource) :#

Summary: Use this procedure to set the field check of a resource to finished

procedure FinishResource(var Resource: Record "Resource"):

Parameters:

  • Resource: The resources that should be finished

BatchFinishResource(Record Resource) :#

Summary: Use this procedure to set the field check for a set of resources to finished

procedure BatchFinishResource(var Resource: Record "Resource"):

Parameters:

  • Resource: The Resource that should be editable

Events#

OnAfterOnInsertCust(Record Customer) :#

[IntegrationEvent(false, false)]
local procedure OnAfterOnInsertCust(var Customer: Record "Customer"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnAfterOnInsertCust', '', false, false)]
local procedure DoSomethingOnAfterOnInsertCust(var Customer: Record "Customer")
begin
end;

OnBeforeCheckMandatoryFields(RecordRef, Record KVSKBAMandatoryFieldCheckEntry, Enum KVSKBAIntegerAsEnum, Code[20], Integer, Integer, Text[250], Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCheckMandatoryFields(RecRef: RecordRef; var MandFieldCheckEntry: Record "KVSKBAMandatoryFieldCheckEntry"; DocType: Enum "KVSKBAIntegerAsEnum"; DocNo: Code[20]; DocLineNo: Integer; DocSubLineNo: Integer; DocDescription: Text[250]; var ReturnValue: Boolean; var Handled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeCheckMandatoryFields', '', false, false)]
local procedure DoSomethingOnBeforeCheckMandatoryFields(RecRef: RecordRef; var MandFieldCheckEntry: Record "KVSKBAMandatoryFieldCheckEntry"; DocType: Enum "KVSKBAIntegerAsEnum"; DocNo: Code[20]; DocLineNo: Integer; DocSubLineNo: Integer; DocDescription: Text[250]; var ReturnValue: Boolean; var Handled: Boolean)
begin
end;

OnBeforeFieldsConditionTest(RecordRef, Record KVSKBAMandatoryCheckField, Boolean, Boolean) :#

Obsolete

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

[IntegrationEvent(false, false)]
[Obsolete('Use OnBeforeFieldsConditionTestwithIsHandled instead', '24.3')]
local procedure OnBeforeFieldsConditionTest(RecRef: RecordRef; KVSKBAMandatoryCheckField: Record "KVSKBAMandatoryCheckField"; ReturnValue: Boolean; Handled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeFieldsConditionTest', '', false, false)]
local procedure DoSomethingOnBeforeFieldsConditionTest(RecRef: RecordRef; KVSKBAMandatoryCheckField: Record "KVSKBAMandatoryCheckField"; ReturnValue: Boolean; Handled: Boolean)
begin
end;

OnBeforeFieldsConditionTestwithIsHandled(RecordRef, Record KVSKBAMandatoryCheckField, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeFieldsConditionTestwithIsHandled(RecRef: RecordRef; KVSKBAMandatoryCheckField: Record "KVSKBAMandatoryCheckField"; ReturnValue: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeFieldsConditionTestwithIsHandled', '', false, false)]
local procedure DoSomethingOnBeforeFieldsConditionTestwithIsHandled(RecRef: RecordRef; KVSKBAMandatoryCheckField: Record "KVSKBAMandatoryCheckField"; ReturnValue: Boolean; var IsHandled: Boolean)
begin
end;

OnBeforeCheckMandatoryFieldsCust(Record Customer, Boolean, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCheckMandatoryFieldsCust(var CustVar: Record "Customer"; ShowFoundFieldsPar: Boolean; ChangeFieldsInRecPar: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeCheckMandatoryFieldsCust', '', false, false)]
local procedure DoSomethingOnBeforeCheckMandatoryFieldsCust(var CustVar: Record "Customer"; ShowFoundFieldsPar: Boolean; ChangeFieldsInRecPar: Boolean; var IsHandled: Boolean)
begin
end;

OnBeforeCheckMandatoryFieldsItem(Record Item, Boolean, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCheckMandatoryFieldsItem(var ItemVar: Record "Item"; ShowFoundFieldsPar: Boolean; ChangeFieldsInRecPar: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeCheckMandatoryFieldsItem', '', false, false)]
local procedure DoSomethingOnBeforeCheckMandatoryFieldsItem(var ItemVar: Record "Item"; ShowFoundFieldsPar: Boolean; ChangeFieldsInRecPar: Boolean; var IsHandled: Boolean)
begin
end;

OnBeforeCheckMandatoryFieldsVend(Record Vendor, Boolean, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCheckMandatoryFieldsVend(var VendVar: Record "Vendor"; ShowFoundFieldsPar: Boolean; ChangeFieldsInRecPar: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeCheckMandatoryFieldsVend', '', false, false)]
local procedure DoSomethingOnBeforeCheckMandatoryFieldsVend(var VendVar: Record "Vendor"; ShowFoundFieldsPar: Boolean; ChangeFieldsInRecPar: Boolean; var IsHandled: Boolean)
begin
end;

OnBeforeOnValidateCustBlocked(Record Customer, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeOnValidateCustBlocked(var Customer: Record "Customer"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeOnValidateCustBlocked', '', false, false)]
local procedure DoSomethingOnBeforeOnValidateCustBlocked(var Customer: Record "Customer"; var IsHandled: Boolean)
begin
end;

OnBeforeOnValidateCustBlockedUser(Record Customer, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeOnValidateCustBlockedUser(var Customer: Record "Customer"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeOnValidateCustBlockedUser', '', false, false)]
local procedure DoSomethingOnBeforeOnValidateCustBlockedUser(var Customer: Record "Customer"; var IsHandled: Boolean)
begin
end;

OnBeforeAnalyzeAndShowMandCheckEntries(Record KVSKBAMandatoryFieldCheckEntry, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAnalyzeAndShowMandCheckEntries(var KVSKBAMandatoryFieldCheckEntry: Record "KVSKBAMandatoryFieldCheckEntry"; var ShowFoundedFields: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeAnalyzeAndShowMandCheckEntries', '', false, false)]
local procedure DoSomethingOnBeforeAnalyzeAndShowMandCheckEntries(var KVSKBAMandatoryFieldCheckEntry: Record "KVSKBAMandatoryFieldCheckEntry"; var ShowFoundedFields: Boolean)
begin
end;

OnBeforeOnValidateItemBlocked(Record Item, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeOnValidateItemBlocked(var Item: Record "Item"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeOnValidateItemBlocked', '', false, false)]
local procedure DoSomethingOnBeforeOnValidateItemBlocked(var Item: Record "Item"; var IsHandled: Boolean)
begin
end;

OnBeforeOnValidateItemBlockedUser(Record Item, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeOnValidateItemBlockedUser(var Item: Record "Item"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeOnValidateItemBlockedUser', '', false, false)]
local procedure DoSomethingOnBeforeOnValidateItemBlockedUser(var Item: Record "Item"; var IsHandled: Boolean)
begin
end;

OnBeforeOnValidateVendBlocked(Record Vendor, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeOnValidateVendBlocked(var Vendor: Record "Vendor"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeOnValidateVendBlocked', '', false, false)]
local procedure DoSomethingOnBeforeOnValidateVendBlocked(var Vendor: Record "Vendor"; var IsHandled: Boolean)
begin
end;

OnBeforeOnValidateVendBlockedUser(Record Vendor, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeOnValidateVendBlockedUser(var Vendor: Record "Vendor"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeOnValidateVendBlockedUser', '', false, false)]
local procedure DoSomethingOnBeforeOnValidateVendBlockedUser(var Vendor: Record "Vendor"; var IsHandled: Boolean)
begin
end;

OnBeforeSetCustBlockedWhenMaintenanceComplete(Record Customer, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeSetCustBlockedWhenMaintenanceComplete(var CustVar: Record "Customer"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeSetCustBlockedWhenMaintenanceComplete', '', false, false)]
local procedure DoSomethingOnBeforeSetCustBlockedWhenMaintenanceComplete(var CustVar: Record "Customer"; var IsHandled: Boolean)
begin
end;

OnBeforeSetCustBlockedWhenMaintenanceInProgress(Record Customer, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeSetCustBlockedWhenMaintenanceInProgress(var CustVar: Record "Customer"; MandatoryFieldsCheckIsRequiredPar: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeSetCustBlockedWhenMaintenanceInProgress', '', false, false)]
local procedure DoSomethingOnBeforeSetCustBlockedWhenMaintenanceInProgress(var CustVar: Record "Customer"; MandatoryFieldsCheckIsRequiredPar: Boolean; var IsHandled: Boolean)
begin
end;

OnBeforeSetItemBlockedWhenMaintenanceComplete(Record Item, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeSetItemBlockedWhenMaintenanceComplete(var ItemVar: Record "Item"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeSetItemBlockedWhenMaintenanceComplete', '', false, false)]
local procedure DoSomethingOnBeforeSetItemBlockedWhenMaintenanceComplete(var ItemVar: Record "Item"; var IsHandled: Boolean)
begin
end;

OnBeforeSetItemBlockedWhenMaintenanceInProgress(Record Item, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeSetItemBlockedWhenMaintenanceInProgress(var ItemVar: Record "Item"; MandatoryFieldsCheckIsRequiredPar: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeSetItemBlockedWhenMaintenanceInProgress', '', false, false)]
local procedure DoSomethingOnBeforeSetItemBlockedWhenMaintenanceInProgress(var ItemVar: Record "Item"; MandatoryFieldsCheckIsRequiredPar: Boolean; var IsHandled: Boolean)
begin
end;

OnBeforeSetVendBlockedWhenMaintenanceComplete(Record Vendor, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeSetVendBlockedWhenMaintenanceComplete(var VendVar: Record "Vendor"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeSetVendBlockedWhenMaintenanceComplete', '', false, false)]
local procedure DoSomethingOnBeforeSetVendBlockedWhenMaintenanceComplete(var VendVar: Record "Vendor"; var IsHandled: Boolean)
begin
end;

OnBeforeSetVendBlockedWhenMaintenanceInProgress(Record Vendor, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeSetVendBlockedWhenMaintenanceInProgress(var VendVar: Record "Vendor"; MandatoryFieldsCheckIsRequiredPar: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeSetVendBlockedWhenMaintenanceInProgress', '', false, false)]
local procedure DoSomethingOnBeforeSetVendBlockedWhenMaintenanceInProgress(var VendVar: Record "Vendor"; MandatoryFieldsCheckIsRequiredPar: Boolean; var IsHandled: Boolean)
begin
end;

OnAfterCheckMandatoryFieldsItemOnBeforeSetMaintenance(Record Item, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCheckMandatoryFieldsItemOnBeforeSetMaintenance(var Item: Record "Item"; var ChangeFieldsInRec: Boolean; var Ok: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnAfterCheckMandatoryFieldsItemOnBeforeSetMaintenance', '', false, false)]
local procedure DoSomethingOnAfterCheckMandatoryFieldsItemOnBeforeSetMaintenance(var Item: Record "Item"; var ChangeFieldsInRec: Boolean; var Ok: Boolean)
begin
end;

OnBeforeCheckFieldsResource(Record Resource, Boolean, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeCheckFieldsResource(var Resource: Record "Resource"; ShowFoundFields: Boolean; ChangeFieldsInRec: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeCheckFieldsResource', '', false, false)]
local procedure DoSomethingOnBeforeCheckFieldsResource(var Resource: Record "Resource"; ShowFoundFields: Boolean; ChangeFieldsInRec: Boolean; var IsHandled: Boolean)
begin
end;

OnBeforeSetResourceBlockedWhenMaintenanceComplete(Record Resource, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeSetResourceBlockedWhenMaintenanceComplete(var Resource: Record "Resource"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeSetResourceBlockedWhenMaintenanceComplete', '', false, false)]
local procedure DoSomethingOnBeforeSetResourceBlockedWhenMaintenanceComplete(var Resource: Record "Resource"; var IsHandled: Boolean)
begin
end;

OnBeforeSetResourceBlockedWhenMaintenanceInProgress(Record Resource, Boolean, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeSetResourceBlockedWhenMaintenanceInProgress(var Resource: Record "Resource"; MandatoryFieldsCheckIsRequired: Boolean; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeSetResourceBlockedWhenMaintenanceInProgress', '', false, false)]
local procedure DoSomethingOnBeforeSetResourceBlockedWhenMaintenanceInProgress(var Resource: Record "Resource"; MandatoryFieldsCheckIsRequired: Boolean; var IsHandled: Boolean)
begin
end;

OnBeforeOnValidateResourceBlockedUser(Record Resource, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeOnValidateResourceBlockedUser(var Resource: Record "Resource"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeOnValidateResourceBlockedUser', '', false, false)]
local procedure DoSomethingOnBeforeOnValidateResourceBlockedUser(var Resource: Record "Resource"; var IsHandled: Boolean)
begin
end;

OnAfterEditCust(Record Customer) :#

[IntegrationEvent(false, false)]
local procedure OnAfterEditCust(var Customer: Record "Customer"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnAfterEditCust', '', false, false)]
local procedure DoSomethingOnAfterEditCust(var Customer: Record "Customer")
begin
end;

OnBeforeFinishCust(Record Customer) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeFinishCust(var Customer: Record "Customer"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeFinishCust', '', false, false)]
local procedure DoSomethingOnBeforeFinishCust(var Customer: Record "Customer")
begin
end;

OnAfterFinishCust(Record Customer) :#

[IntegrationEvent(false, false)]
local procedure OnAfterFinishCust(var Customer: Record "Customer"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnAfterFinishCust', '', false, false)]
local procedure DoSomethingOnAfterFinishCust(var Customer: Record "Customer")
begin
end;

OnAfterEditVend(Record Vendor) :#

[IntegrationEvent(false, false)]
local procedure OnAfterEditVend(var Vendor: Record "Vendor"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnAfterEditVend', '', false, false)]
local procedure DoSomethingOnAfterEditVend(var Vendor: Record "Vendor")
begin
end;

OnBeforeFinishVend(Record Vendor) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeFinishVend(var Vendor: Record "Vendor"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnBeforeFinishVend', '', false, false)]
local procedure DoSomethingOnBeforeFinishVend(var Vendor: Record "Vendor")
begin
end;

OnAfterFinishVend(Record Vendor) :#

[IntegrationEvent(false, false)]
local procedure OnAfterFinishVend(var Vendor: Record "Vendor"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAMandatoryFieldsLib", 'OnAfterFinishVend', '', false, false)]
local procedure DoSomethingOnAfterFinishVend(var Vendor: Record "Vendor")
begin
end;