KVSPSAPurchase Subscribers#
Procedures#
IsBusinessRegistrationCertificateMissingForVendor(Code[20], Date) : Boolean#
Summary: This procedure used for check vendor that requires business registration certificate still has valid business registration certificate or not.
procedure IsBusinessRegistrationCertificateMissingForVendor(VendorNo: Code[20]; PostingDate: Date): Boolean
Parameters:
VendorNo
: Code used for get vendor.PostingDate
: Date used for check business registration certificate validity.
Returns: Return result if the business registration certificate is missing or not.
NotifyForMissingBusinessRegistrationCertificateInPurchaseHeader(Record Purchase Header) :#
Summary: This procedure check if it should send notification or not base on provided PurchaseHeader. if condition is met, it will send notification with the provided NotificationText.
procedure NotifyForMissingBusinessRegistrationCertificateInPurchaseHeader(PurchaseHeader: Record "Purchase Header"):
Parameters:
PurchaseHeader
: Record used for check if notification should be sent.
Events#
KVSPSAOnBeforeAddWorkPackagesOnJobContactForSingleWPPurchases(Record Purchase Header, Boolean) :#
Summary: Event fired before adding work packages on job contact for single work package purchases. Allows extensions to override or customize the work package assignment logic. This event enables custom handling of work package assignment when purchase orders have single work package requirements and job contact processing.
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeAddWorkPackagesOnJobContactForSingleWPPurchases(var PurchaseHeader: Record "Purchase Header"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAPurchase Subscribers", 'KVSPSAOnBeforeAddWorkPackagesOnJobContactForSingleWPPurchases', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeAddWorkPackagesOnJobContactForSingleWPPurchases(var PurchaseHeader: Record "Purchase Header"; var IsHandled: Boolean)
begin
end;
Parameters:
PurchaseHeader
: The purchase header being processed for work package assignment (passed by reference for modification).IsHandled
: Boolean flag (passed by reference) indicating whether the event subscriber has handled the work package assignment and standard logic should be bypassed.
KVSPSAOnBeforeSendNotificationForMissingBusinessRegistrationCertificateInPurchaseHeader(Text, Record Purchase Header, Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnBeforeSendNotificationForMissingBusinessRegistrationCertificateInPurchaseHeader(var NotificationText: Text; var PurchaseHeader: Record "Purchase Header"; var ShouldSendNotification: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAPurchase Subscribers", 'KVSPSAOnBeforeSendNotificationForMissingBusinessRegistrationCertificateInPurchaseHeader', '', false, false)]
local procedure DoSomethingKVSPSAOnBeforeSendNotificationForMissingBusinessRegistrationCertificateInPurchaseHeader(var NotificationText: Text; var PurchaseHeader: Record "Purchase Header"; var ShouldSendNotification: Boolean)
begin
end;
KVSPSAOnCheckIfJobPurchaseWInventoryOnSetUseJobPurchWInventory(Record Item Ledger Entry, Code[20], Boolean) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnCheckIfJobPurchaseWInventoryOnSetUseJobPurchWInventory(ItemLedgerEntry: Record "Item Ledger Entry"; JobNo: Code[20]; var UseJobPurchaseWInventory: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAPurchase Subscribers", 'KVSPSAOnCheckIfJobPurchaseWInventoryOnSetUseJobPurchWInventory', '', false, false)]
local procedure DoSomethingKVSPSAOnCheckIfJobPurchaseWInventoryOnSetUseJobPurchWInventory(ItemLedgerEntry: Record "Item Ledger Entry"; JobNo: Code[20]; var UseJobPurchaseWInventory: Boolean)
begin
end;