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) :#

Summary: This event is triggert right before an independent App tries to open the Change Log powered by CLQ

[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;

Parameters:

  • TempConfig: The "Triggered By Record" field contains the RecordId which triggers the action

OnAfterOpenChangeLog(Record Sent Notification Entry) :#

Summary: This event is triggert right after an independent App tries to open the Change Log powered by CLQ

[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;

Parameters:

  • TempConfig: The "Triggered By Record" field contains the RecordId which triggert the action