StrataFrame Forum » StrataFrame Application Framework - V1 » Role Based Security » Permission Question

RE: Permission Question

Trent L. Taylor — Wed, 05 Sep 2007 09:03:13 GMT

[quote]I have never seen this error before on a BO. Do I have to do something special for the Permissions Business Object?[/quote]

More than likely you did not build the partial class for the BO. The TableSchema is an abstract property that must be overwritten. If you look at another BO you will see what this property contains. Let me know if you need more explanation. :)

Permission Question

Tim Dol — Wed, 05 Sep 2007 09:03:13 GMT

My default permission action is set to deny permissions. I'm writing a routine to loop through a tab control setting the visibility of each tab based on permissions but I only want to check permissions if a permission key exists.

Is there something built in for checking the existence of a permission key, other than using the business object directly or is there a better approach.

Thanks

Tim

RE: Permission Question

Tim Dol — Tue, 04 Sep 2007 16:43:05 GMT

I created a PermissionsBO (Mapped to DDT) and created a routine similar to the one you suggested. When I execute the code I get the following message when setting the SQL Command Text.

"A class derived from MicroFour.StrataFrame.Business.BusinessLayer must override the property 'TableSchema'"

I have never seen this error before on a BO. Do I have to do something special for the Permissions Business Object?

Thanks

Tim

RE: Permission Question

Trent L. Taylor — Tue, 14 Aug 2007 15:41:15 GMT

If you wanting to know if a permission exists regardless of the logged-in users permissions, then you will need to query the BO. The easiest thing would be to create a scalar method that accepts the key then just returns the count of keys found. This would be the fastest way. Our BO rules just check for a duplicate, so you will want to query this yourself.

[codesnippet]Dim loCommand As New SQLCommand()
loCommand.CommandText = "SELECT COUNT(*) FROM SFSPermissions WHERE pm_key=@pm_key"

loCommand.Parameters.Add("@pm_key",VarChar)
loCommand.parameters(0).value = "YourKey"

If CType(Databasics.DataSources("").ExecuteScalar(loCommand), Integer) > 0 Then
'-- It exists
End If[/codesnippet]

RE: Permission Question

Tim Dol — Tue, 14 Aug 2007 12:14:47 GMT

Just following up on this issue. Any idea's

Thanks.