OnEntityList what

BIZ TMS XData
1


Module.Events.OnEntityList.Subscribe(

  procedure(Args: TEntityListArgs)

  begin

    // code here

  end

);


2
Sorry I click enter before finshed edit.

The question is how can I get from Args:TEntityListArgs what entity concerns the event?
3

Here's how I did it, hope it helps

[CODE]
procedure TServerContainer.XDataServerEntityList( Sender: TObject; Args: TEntityListArgs );
var
  User: IUserIdentity;
begin
  User := TXDataOperationContext.Current.Request.User;
  if ( User = nil ) then
    raise EXDataHttpUnauthorized.Create( 'User not authenticated' );
  if not( ( ( User.Claims.Exists( IsWeigher ) and User.Claims[ IsWeigher ].AsBoolean ) ) or
    ( ( User.Claims.Exists( IsAdmin ) and User.Claims[ IsAdmin ].AsBoolean ) ) ) then
    raise EXDataHttpForbidden.Create( 'User is not in the "Weigher" or "Administrators" group' );

  if SameText( 'TLoadCa', Args.Criteria.clazz.classname ) then
    Args.Criteria.Add(
      Linq.Eq( 'DeviceId', '{' + User.Claims[ cJWT_DEVICEID ].AsString.ToUpper + '}' ) and
      ( Linq[ 'TransDate' ] > Date - 10 )
      );

end;
[CODE/]


4
Thanks Steve ... that is what I was looking for.

Regards,