26.08.2025

8.x

//Создаем СписокЗначений СписокЦен = Новый СписокЗначений; //Добавление из выборки Выборка = Справочники.ТипыЦен.Выбрать(); Пока Выборка.Следующий() Цикл СписокЦен.Добавить(Выборка.Ссылка, Выборка.Наценка,...
Процедура ПолучениеСпискаАктивныхПользователей() ИтогСписокСоединений.Очистить(); СоединенияИнформационнойБазы = ПолучитьСоединенияИнформационнойБазы(); Для Каждого Соединение Из СоединенияИнформационнойБазы Цикл ТЗ=ИтогСписокСоединений.Добавить(); ТЗ.Пользователь=Соединение.Пользователь.Имя; ТЗ.Приложение=ПредставлениеПриложения(Соединение.ИмяПриложения); ТЗ.НачалоРаботы=Соединение.НачалоСеанса; ТЗ.Компьютер=Соединение.ИмяКомпьютера;...
Выборка = Справочники.Сотрудники.Выбрать(); //или Выборка = Справочники.Сотрудники.ВыбратьИерархически(); Пока выборка.Следующий() = 1 Цикл ... //действия с очередным элементом...
// Функция возвращает результат пинга указанного IPАдреса Функция ping(IPАдрес) objShell = Новый COMОбъект("WScript.Shell") ; objScriptExec = objShell.Exec("ping.exe...
ФайлНаДиске = Новый Файл(ИмяФайла); Если НЕ(ФайлНаДиске.Существует()) Тогда Предупреждение("Файл с таким именем не существует " + ИмяФайла); Возврат;...
Отчет = РабочиеКниги.Open(Каталог+Названиефайла); ОтЛевогоКрая=550; ОтВерха=80; Длина=100; Высота=50; кн = Отчет.Sheets(1).OLEObjects.Add("Forms.CommandButton.1",,,,,,,ОтЛевогоКрая, ОтВерха, Длина,Высота); st = "Private Sub CommandButton1_Click()"...
//Перебор Основных Реквизитов формы Для Каждого Рек из ЭтаФорма.Метаданные().Реквизиты Цикл Сообщить(рек.Имя+" - "+рек.Синоним+" - "+Строка(рек.Тип)); КонецЦикла; //...
Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединение ИмяФайла = ПолучитьИмяВременногоФайла(".txt"); //строка-образец //http://export.rbc.ru/free/cb.0/free.fcgi?period=DAILY&tickers=USD&d1=18&m1=01&y1=2009&d2=17&m2=02&y2=2009&lastdays=30&separator=TAB&data_format=BROWSER&header=1 //http://export.rbc.ru/free/cb.5/free.fcgi?period=DAILY&tickers=USDEUR_BASKET&d1=08&m1=07&y1=2009&d2=22&m2=07&y2=2009&lastdays=14&separator=TAB&data_format=BROWSER&header=1 СтрокаСоединения="/free/"+Источник+"/free.fcgi?period=DAILY&tickers="+Валюта1+"&d1="+День1+"&m1="+Месяц1+"&y1="+Год1+"&d2="+День2+"&m2="+Месяц2+"&y2="+Год2+"&separator=%7C&data_format=BROWSER"; СтрокаСоединения=СтрЗаменить(СтрокаСоединения," ",""); Попытка //соединяемся...
Чтение = Новый ЧтениеXML; Чтение.ОткрытьФайл(ПутьКФайлу); //ПутьКФайлу - Путь к загружаемому XML-документу указан в переменной //Используется модель последовательного...
Функция ТабличныйДокументВСтроку(ТД) Экспорт Попытка ИмяФайла=ПолучитьИмяВременногоФайла("MXL"); ТД.Записать(ИмяФайла); ДД=Новый ДвоичныеДанные(ИмяФайла); Стр=Base64Строка(ДД); ДД=Неопределено; УдалитьФайлы(ИмяФайла); Возврат Стр; Исключение Возврат Неопределено; КонецПопытки;...