Skip to content

KVSPSAREWarrantyMgt#

Events#

KVSPSAREOnAfterCalculateWarrantyEndDate(Record Purchase Header) :#

Summary: This event is triggered after the Warranty End Date for a Purchase Document has been calculated. Use this event to modify the calculated date

[IntegrationEvent(false, false)]
local procedure KVSPSAREOnAfterCalculateWarrantyEndDate(var PurchaseHeader: Record "Purchase Header"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAREWarrantyMgt", 'KVSPSAREOnAfterCalculateWarrantyEndDate', '', false, false)]
local procedure DoSomethingKVSPSAREOnAfterCalculateWarrantyEndDate(var PurchaseHeader: Record "Purchase Header")
begin
end;

Parameters:

  • PurchaseHeader: The updated Purchase Document

KVSPSAREOnBeforeCheckWarrantyFields(Record Purchase Header, Boolean) :#

Summary: This event is triggered before the warranty fields of a Purchase Header requiring a warranty are checked. Use this event to deactivate this check or make additional preparations.

[IntegrationEvent(false, false)]
local procedure KVSPSAREOnBeforeCheckWarrantyFields(var PurchaseHeader: Record "Purchase Header"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAREWarrantyMgt", 'KVSPSAREOnBeforeCheckWarrantyFields', '', false, false)]
local procedure DoSomethingKVSPSAREOnBeforeCheckWarrantyFields(var PurchaseHeader: Record "Purchase Header"; var IsHandled: Boolean)
begin
end;

Parameters:

  • PurchaseHeader: The Purchase Document being checked
  • IsHandled: Set to true to skip the check

KVSPSAREOnCreateNewWarrantyEntryFromPurchaseHeaderBeforeModify(Record Purchase Header, Code[20], Record KVSPSAREWarranty) :#

Summary: This event is triggered after a warranty entry has been created from a Purchase Order. Use this event to transfer additional data to the warranty entry.

[IntegrationEvent(false, false)]
local procedure KVSPSAREOnCreateNewWarrantyEntryFromPurchaseHeaderBeforeModify(PurchHeader: Record "Purchase Header"; PurchInvNo: Code[20]; var Warranty: Record "KVSPSAREWarranty"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAREWarrantyMgt", 'KVSPSAREOnCreateNewWarrantyEntryFromPurchaseHeaderBeforeModify', '', false, false)]
local procedure DoSomethingKVSPSAREOnCreateNewWarrantyEntryFromPurchaseHeaderBeforeModify(PurchHeader: Record "Purchase Header"; PurchInvNo: Code[20]; var Warranty: Record "KVSPSAREWarranty")
begin
end;

Parameters:

  • PurchHeader: The Purchase Order
  • PurchInvNo: The No. of an existing Invoice for this Order if existant
  • Warranty: The newly created Warranty Entry

KVSPSAREOnCreateNewWarrantyEntryFromPurchInvHeaderBeforeModify(Record Purch. Inv. Header, Record KVSPSAREWarranty) :#

Summary: This event is triggered after a warranty entry has been created from a posted Purchase Invoice. Use this event to transfer additional data to the warranty entry.

[IntegrationEvent(false, false)]
local procedure KVSPSAREOnCreateNewWarrantyEntryFromPurchInvHeaderBeforeModify(PurchInvHeader: Record "Purch. Inv. Header"; var Warranty: Record "KVSPSAREWarranty"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAREWarrantyMgt", 'KVSPSAREOnCreateNewWarrantyEntryFromPurchInvHeaderBeforeModify', '', false, false)]
local procedure DoSomethingKVSPSAREOnCreateNewWarrantyEntryFromPurchInvHeaderBeforeModify(PurchInvHeader: Record "Purch. Inv. Header"; var Warranty: Record "KVSPSAREWarranty")
begin
end;

Parameters:

  • PurchInvHeader: The Purchase Invoice
  • Warranty: The newly created Warranty Entry

KVSPSAREOnAfterDeleteWarrantyFromPurchaseOrderWithoutPosting(Record Purchase Header, Record KVSPSAREWarranty) :#

Summary: This event is triggered after an obsolete warranty entry has been deleted for a deleted Purchase Order. Use this event for additional clean-ups.

[IntegrationEvent(false, false)]
local procedure KVSPSAREOnAfterDeleteWarrantyFromPurchaseOrderWithoutPosting(var PurchHeader: Record "Purchase Header"; Warranty: Record "KVSPSAREWarranty"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAREWarrantyMgt", 'KVSPSAREOnAfterDeleteWarrantyFromPurchaseOrderWithoutPosting', '', false, false)]
local procedure DoSomethingKVSPSAREOnAfterDeleteWarrantyFromPurchaseOrderWithoutPosting(var PurchHeader: Record "Purchase Header"; Warranty: Record "KVSPSAREWarranty")
begin
end;

Parameters:

  • PurchHeader: The deleted Purchase Document
  • Warranty: The deleted warranty entry