Hi,
Strange issue with subscribing to events. This one works perfectly:
[EventSubscriber(ObjectType::Table, Database::"Service Header", 'OnAfterInsertEvent', '', false, false)]
procedure ServiceHeader_OnAfterInsertEvent(var Rec: Record "Service Header"; RunTrigger: Boolean)
begin
Dialog.Message('OnAfterInsertEvent');
end;
However, all these fail. They simple do not get called:
[EventSubscriber(ObjectType::Codeunit, CodeUnit::ServContractManagement, 'OnBeforeCreateLastServLines', '', true, true)]
local procedure OnOnBeforeCreateLastServLines(ServiceHeader: Record "Service Header"; ContractType: Integer; ContractNo: Code[20]; var IsHandled: Boolean)
begin
Dialog.Message('OnOnBeforeCreateLastServLines');
end;
[EventSubscriber(ObjectType::Codeunit, CodeUnit::ServContractManagement, 'OnBeforeCreateInvoice', '', true, true)]
local procedure OnOnBeforeCreateInvoice(var ServiceContractHeader: Record "Service Contract Header")
begin
Dialog.Message('OnBeforeCreateInvoice');
end;
Any suggestions? Purpose is to inject code when a service invoice is generated (all lines are there). For some items compensating lines based upon criteria in a contract type table are to be added.
Please advice