project BLF > class BBusinessComponent > business logic query BusCompByActivityUserComp (distinct)
Description
Checks the if the <user> can execute <activity> for component <component> in company <company>.
Remark that only the company bound activities are checked (UsrRole.UsrRoleIsForAllCompanies=False).
Parameters
| icBusComponentCode | character | BusComponentCode |
| icBusActivityCode | character | BusActivityCode |
| icUsrName | character | UsrName |
| icUsrLogin | character | UsrLogin |
| iiCompanyID | integer | Entity ID |
| iiUsrID | integer | |
query condition
each BusComponent where
BusComponent.BusComponentCode = icBusComponentCode
each BusActivity (inner-join) where
BusActivity.BusComponent_ID = BusComponent.BusComponent_ID AND
BusActivity.BusActivityCode = icBusActivityCode
each Resources (inner-join) where
Resources.BusActivity_ID = BusActivity.BusActivity_ID AND
each RoleResource (inner-join) where
RoleResource.Resource_ID = Resources.Resource_ID AND
first Role (inner-join) where
Role.Role_ID = RoleResource.Role_ID AND
each UsrRole (inner-join) where
UsrRole.Role_ID = Role.Role_ID AND
UsrRole.Usr_ID = iiUsrID
first Usr (inner-join) where
Usr.Usr_ID = UsrRole.Usr_ID AND
Usr.UsrLogin = icUsrLogin And
Usr.UsrName = icUsrName
each UsrRoleCompany (inner-join) where
UsrRoleCompany.Company_Id = iiCompanyId AND
UsrRoleCompany.UsrRole_ID = UsrRole.UsrRole_ID AND
query resultset tqBusCompByActivityUserComp
| field name | data type | db field | description |
|---|
| tiBusActivity_ID | integer | BusActivity.BusActivity_ID | Record ID |
| tcBusActivityCode | character | BusActivity.BusActivityCode | Code |
| tiBusComponent_ID | integer | BusComponent.BusComponent_ID | BusComponent_ID |
| tcBusComponentCode | character | BusComponent.BusComponentCode | Component |
| tiCompany_ID | integer | UsrRoleCompany.Company_ID | Entity |
| tiRole_ID | integer | Role.Role_ID | Record ID |
| tiUsr_ID | integer | Usr.Usr_ID | Record ID |
| tcUsrLogin | character | Usr.UsrLogin | Login |
| tcUsrName | character | Usr.UsrName | User Name |
Internal usage
BLF
QadFinancials