krvsa,
Есть класс class %CSP.UI.Portal.ColumnPriv он унаследован от %ZEN.Component.page (более подоробно посмотрите в Class Reference). Применяя данный класс можно управлять доступом как к таблице так и к отдельному столбцу таблицы.

Пример вызова.

Method rowLincSQLTlb() [ Language = javascript ]
{
var table = this.getComponentById('table');
var index = table.getProperty('selectedIndex');
if (index == -1)
{
alert("Виберіть запис та повторіть дію!");
return;
}
var data = table.getRowData(index);
var id = data.ID;
var Grantee = data.Name;
zenPage.launchPopupWindow(
zenLink('%CSP.UI.Portal.ColumnPriv.cls?$ID1='+Grantee+'&NAMESPACE=CIVICRESPONSIBILITY&ObjectType=TABLE&tab=4&IncludeSystem=0'),'',
'status,scrollbars,resizable=no,modal=yes,width=840,height=660');
}

Ymka2007,
Чуток перепутал с адресатом, кому надо было ответить (написал для krsva).

krsva!
Извените не с тем ответом к Вам "влез"... Перепутал....http://www.sql.ru/forum/images/biggrin.gif

Ymka2007,
Таким образом добавляю программно
addSQLTable()
s pNamespace="CIVICRESPONSIBILITY"
s pObjName=""
s pGrantee="t222" ;роль или пользователь
s pObjectType="TABLE"
s pSchema="DATA_ACCOUNTING"
s pTable="Register"
s pColumns="Quantity"
s pPrivs=",1,2,3,4" ;1="s",2="i",3="u",4="r"
s pGrants=""
s pRevoke=0
s pIncludeSystem=0
s tSC = ##class(%CSP.UI.Portal.ColumnPriv).SaveData(pNamespace, pObjName, pGrantee, pObjectType, pSchema, pTable, pColumns, pPrivs, pGrants, pRevoke, pIncludeSystem)
q tSC

Отдельно для таблицы я не нашел, но можно и через этот класс добавить туже таблицу (конечно надо указывать какие столбцы из таблицы будут добавляться).

Надо "порыть" класс %SQL.Manager.API (класс метод SaveData из %CSP.UI.Portal.ColumnPriv использует Set tSC = ##class(%SQL.Manager.API).SaveObjPriv(acts(priv), nType, pObjName, pGrantee, 0, 1, .SQLCODE, .sMsg, GrantedBy, .fields)
)

Может через него можно будет добавить только таблицу...

Ymka2007,
class %SQL.Manager.API extends %RegisteredObject

This is a system class that allows control of the Cache SQL environment.
Used by SQL Manager.

classmethod SaveObjPriv(acts As %String, type As %Integer, objs As %String, users As %String, g, revoke As %Integer, ByRef SQLCODE As %Integer, ByRef %msg As %String, GrantedBy As %String = "", ByRef fields As %String = "") as %Status

Parameters: acts - actions to grant. * for all actions a for Alter s for Select i for Insert u for Update d for Delete r for References or any combination type - "1" for table, "3" for view, "9" for procedure objs - name of the table or view users - comma delimited list of users g - 0/1 for WITH GRANT OPTION revoke - 1 if revoke (-1 otherwise) SQLCODE - Passed by reference. Returns SQLCODE contains 0 (success) or number < 0 (error) %msg - Passed by reference. If SQLCODE<0, contains error message. GrantedBy - Who the privilege was granted by. If revoke, revoke from user it was granted by fields - optional, $List of field names to grant or revoke the privs on the objs

Т.е. если использовать этот класс-метод то можно сохранить всю таблицу сразу же, а не по колонкам...

Ymka2007,

Код SaveData

ClassMethod SaveData(pNamespace, pObjName, pGrantee, pObjectType, pSchema, pTable, pColumns = "", pPrivs = "", pGrants = "", pRevoke, pIncludeSystem) As %String [ ZenMethod ]
{

Set $ZT="Error"
Set tResult = ""
Do {
Set GrantedBy = $Username
Set nType = $S(pObjectType="TABLE":1,pObjectType="VIEW":3,1:9)
Set currentNamespace = $zu(5)
If pNamespace '= "",pNamespace '= currentNamespace ZN pNamespace
If pObjName = "" Set pObjName = pSchema _ "." _ pTable
#; If it is revoke all, gather all columns now
If pRevoke = 1,pColumns = "*" Set pColumns = ..GetColumns(pGrantee, pSchema, pTable, pIncludeSystem) Quit:pColumns=""
#; Set columns into $list
Set fields = ""
For r = 1:1:$L(pColumns,",") Set $li(fields,r) = $P(pColumns,",",r)
#; parse out the privileges
Set acts(1)="s",acts(2)="i",acts(3)="u",acts(4)="r"
Set tRow = 2
Set priv = $P(pPrivs,",",tRow)
;&js<alert("#(pPrivs)#");>
;&js<alert("#(priv)#");>
;q
s aa=acts(1)
#; for every priv, grant the privilege:
While priv '= "" {
#; first remove all privileges then save the ones user selected.
Set tSC = ##class(%SQL.Manager.API).SaveObjPriv(acts(priv), nType, pObjName, pGrantee, 0, 1, .SQLCODE, .sMsg, GrantedBy, .fields)

;&js<alert("#(SQLCODE)#");>
If $$$ISERR(tSC) Set tResult = $ZCVT($System.Status.GetErrorText(tSC),"O","HTML") Quit
If SQLCODE '= 0 Set tResult = tResult _ pObjName _ $$$TextHTML("Save failed. Could not remove existing privilege.")_" "_sMsg_"</br>" Quit
Set nGrant = pGrants [ priv

#;s ^%yan("priv",priv)=acts(priv)_"^"_nType_"^"_pObjName_"^"_pGrantee_"^"_nGrant_"^"_0_"^"_GrantedBy_"^"_fields
Set tSC = ##class(%SQL.Manager.API).SaveObjPriv(acts(priv), nType, pObjName, pGrantee, nGrant, 0, .SQLCODE, .sMsg, GrantedBy, .fields)
If SQLCODE '= 0 Set tResult = tResult _ pObjName _ $$$TextHTML("Save failed. Please make sure that you have sufficient SQL privilege to perform this operation.")_" "_sMsg_"</br>" Quit
Set tRow = tRow + 1
Set priv = $P(pPrivs,",",tRow)
}

If pRevoke = 1 {
Set tSC = ##class(%SQL.Manager.API).SaveObjPriv("*", nType, pObjName, pGrantee, 0, 1, .SQLCODE, .sMsg, GrantedBy, .fields)
}

If SQLCODE '= 0 {
Set tResult = tResult _" ["_SQLCODE_"]"_sMsg_"<br>"
}

ZN currentNamespace

} While 0
Quit tResult
Error ///
Set $ZT="" Do BACK^%ETN
Set tResult = $ZCVT($ZE,"O","HTML")
Quit tResult
}

krvsa,

Оставьте ресурсы
%DB_%DEFAULT
%DB_CACHESYS
UCH_ADM

остальные удалите. И зайдите в систему под пользователем для которого определена роль UCH_R_ADM.
В этом случае Вы должны видеть только кнопку UCH_ADM.

krvsa,

Посмотрите профиль пользователя. Какие ресурсы и службы ему доступны. Были случаи(когда при инсталяции Cache' выбирался максимальный уровень безопасности) при добавлении нового пользователя ему присваивался ресурс %All. В списке выбранных ресурсов он отсутсвовал, а в профиле пользователя отображался...

krvsa,

Попробуйте убрать и ресурсы
%DB_%DEFAULT
%DB_CACHESYS

Оставьте только свой ресурс. Без ресурсов %DB_%DEFAULT и %DB_CACHESYS должна возникнуть ошибка на странице.