Comment: String;
The Comment property determines a comment to be added to the system comment when auditing an operation.
The comment is displayed in the Comment column of the access protocol.
Executing the example requires a regular report with an assigned event handler that is a unit containing the following code:
Class EventsClass: ReportEvents
Sub EventOnAuditOperation(Args: IUiPrxReportAuditOperationEventArgs);
Var
O: PrxReportAuditOperation;
S: String;
Begin
O := Args.Operation;
S := "";
S := S + ((O And PrxReportAuditOperation.Print) <> 0 ? "My Print" :
(O And PrxReportAuditOperation.Export) <> 0 ? "My Export" : "My Unknown");
If Args.FromWeb Then
S := S + " from Web";
End If;
If Args.Repeated Then
S := S + " Repeated";
End If;
Args.Comment := S;
End Sub EventOnAuditOperation;
End Class EventsClass;
On opening, printing or exporting the report, an appropriate comment is added to the system comment of access protocol entry.
See also: