26.08.2025

8.x

//Находит строку и начинает пересчет вверх по узлам. Процедура ПересчитатьВсеДерево(дз_стр) для каждого стр из дз_стр.Строки Цикл Если...
Предположим, у нас есть таблица значений «тзТаблицаПоОказаннымУслугам» и колонка в ней «Период». Нужно создать копию этой колонки...
//Функция позволяет пользователю выбрать каталог на диске. Функция ВыбратьКаталог(ИмяКаталога) Экспорт Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога); Диалог.Заголовок = "Укажите...
//Создаем СписокЗначений СписокЦен = Новый СписокЗначений; //Добавление из выборки Выборка = Справочники.ТипыЦен.Выбрать(); Пока Выборка.Следующий() Цикл СписокЦен.Добавить(Выборка.Ссылка, Выборка.Наценка,...
Процедура ПолучениеСпискаАктивныхПользователей() ИтогСписокСоединений.Очистить(); СоединенияИнформационнойБазы = ПолучитьСоединенияИнформационнойБазы(); Для Каждого Соединение Из СоединенияИнформационнойБазы Цикл ТЗ=ИтогСписокСоединений.Добавить(); ТЗ.Пользователь=Соединение.Пользователь.Имя; ТЗ.Приложение=ПредставлениеПриложения(Соединение.ИмяПриложения); ТЗ.НачалоРаботы=Соединение.НачалоСеанса; ТЗ.Компьютер=Соединение.ИмяКомпьютера;...
Выборка = Справочники.Сотрудники.Выбрать(); //или Выборка = Справочники.Сотрудники.ВыбратьИерархически(); Пока выборка.Следующий() = 1 Цикл ... //действия с очередным элементом...
// Функция возвращает результат пинга указанного IPАдреса Функция ping(IPАдрес) objShell = Новый COMОбъект("WScript.Shell") ; objScriptExec = objShell.Exec("ping.exe...