Skip to content

KVSCLQOpenChangeLogMeth#

Summary: Use this Codeunit to open the Change Log powered by CLQ. You do not need an dependency to this App to use this Feature.

Procedures#

OnRun#

procedure OnRun(Rec: Record "#437dbf0e84ff417a965ded2bb9650972#Sent Notification Entry")

Example:

action(KVSCLQChangeLog)
{
     ApplicationArea = KVSCLQ;
     ToolTip = 'Open the prefiltered Change Log Entries';
     Caption = 'Change Log';
     Image = ChangeLog;
     trigger OnAction()
     var
         TempConfig: Record "Sent Notification Entry" temporary;
     begin
         SetCLQConfig(); // (1)
         TempConfig."Triggered By Record" := Rec.RecordId; // (2)
         if Codeunit.Run(70260020, TempConfig) then; // (3)
     end;
}

  1. Set Configuration. See "KVSCLQSetConfigMeth"
  2. Write the current RecordId into the "Triggered By Record" Field of the "Sent Notification Entry" Record. We misuse this table to have an common data vehicle.
  3. Call this Codeunit. If the codeunit does not exists due to clq is not installed the call will fail silently. Attention: Codeunit.Run requires an commited transaction and will commit on success! Sometimes encapsulation in a try function is a better solution.

Events#

OnBeforeOpenChangeLog(Record Sent Notification Entry, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeOpenChangeLog(var TempConfig: Record "Sent Notification Entry" temporary; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSCLQOpenChangeLogMeth", 'OnBeforeOpenChangeLog', '', false, false)]
local procedure DoSomethingOnBeforeOpenChangeLog(var TempConfig: Record "Sent Notification Entry" temporary; var IsHandled: Boolean)
begin
end;

OnAfterOpenChangeLog(Record Sent Notification Entry) :#

[IntegrationEvent(false, false)]
local procedure OnAfterOpenChangeLog(var RecordLink: Record "Sent Notification Entry" temporary): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSCLQOpenChangeLogMeth", 'OnAfterOpenChangeLog', '', false, false)]
local procedure DoSomethingOnAfterOpenChangeLog(var RecordLink: Record "Sent Notification Entry" temporary)
begin
end;