База для просмотра в трехзвенке

[itfs]

Для полноты ощущений.
3. Пишем и выполняем страшный вирус типа:

   
   treeNode        _treeNode;
   treeNode        _treeNodeTab;
   xInfo           xInfo;
   UtilIdElements  UiE;
   str             properties = "";
;
   xInfo               = new xInfo();
   _treeNode           = xInfo.rootNode();
    _treeNode           = _treeNode.AOTfindChild("Data Dictionary");
    _treeNode           = _treeNode.AOTfindChild("Tables");



   while select id, name from UiE
    group by id, name
    where UiE.recordType == 44
       && !(UiE.name like 'Tmp*')
    {
        _treeNodeTab  = _treeNode.AOTfindChild(UiE.name);
        if (_treeNodeTab)
        {
          properties = _treeNodeTab.AOTgetProperties();
          properties = setProperty(Properties, 'MaxAccessMode', 'View');

          _treeNodeTab.AOTsetProperties(Properties);
          _treeNodeTab.AOTsave();
        }
    }

... И через пару минут у вас read-only приложение. Только не забудьте сохранить все что вам дорого .

PS Не претендую на то, что вариант из лучших.

С уважением, itfs.

[tolstjak]

Цитата:

Сообщение от itfs

Для полноты ощущений......
... И через пару минут у вас read-only приложение. Только не забудьте сохранить все что вам дорого .

PS Не претендую на то, что вариант из лучших.

С уважением, itfs.

Большое спасибо за джоб. Немного подправили и запустили на базе.
В итоге сообщил 1 ошибку и 175 предупреждений, но ничего не показал.
Как мы поняли, он делает у части таблиц свойство MaxAccessMode - View. Работоспособность всего приложения и базы не проверяли, но на вскидку все работает.
Понравилось.
Как теперь это запускать еженочно без запуска системы?
Или может быть преобразовать в SQL job?