or» && «. »& IDFieldName &« in »& CR &
« (Select »& CR &
« distinct EDocAccessTable. » & EDocIDFieldName & CR &
« from » & CR &
« » & EDocRightsTableName & « EDocAccessTable » & CR &
« where » & CR &
« EDocAccessTable. » & AccountIDFieldName & « =» & ToString (GetCurrentUserInternalID ()) & CR &
« and EDocAccessTable. » & EDocIDFieldName & « =» & MainTableName & «.» & IDFieldName & «))»)). Component. Params. SetVar (AccessRightsWhereIDParamName; Sender. AddWhere (& «.» & IDFieldName & «in» & CR &
« (Select »& CR &
« distinct EDocAccessTable. » & EDocIDFieldName & CR &
« from » & CR &
« » & EDocRightsTableName & « EDocAccessTable, » & CR &
« » & FullAccessRightsTableName & « UserAccessTable (READCOMMITTED) » & CR &
« where » & CR &
« EDocAccessTable. » & AccountIDFieldName & « =UserAccessTable. » & FullAccessRightsUserOrGroupIDFieldName & « » & CR &
« and EDocAccessTable. » & EDocIDFieldName & « =» & MainTableName & «.» & IDFieldName & CR &
« and UserAccessTable. » & FullAccessRightsUserIDFieldName & « =» & ToString (GetCurrentUserInternalID ()) & «)»))
Закриття
. DelWhere (Sender. Component. Params. ValueByName («AccessRightsWhereID»))
Запис
Відкриття
! Component =! Sender. Componentnot! Sender. Inserted
! Component. AccessRights. CheckRead