26.08.2025

8.x

Есть ли возможность поиска строки в текстовом файле по маске? К примеру ХХХХ-ХХХХ-ХХХХ-ХХХХ. RegExp = Новый COMОбъект("VBScript.RegExp");...
Перем Значение; // В эту переменную запишем значение из реестра RegProv=ПолучитьCOMОбъект( "winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv" ); // Читаем значение ключа...
// добавим новые начисления в базу исполнительных листов ПВРУд = ПланыВидовРасчета.УдержанияОрганизаций; ПВРОсн = ПланыВидовРасчета.ОсновныеНачисленияОрганизаций; ОбъектВР = ПВРУд.ИЛПроцентомБезБЛ.ПолучитьОбъект();...
СтрокаПоиска="1c-ovec.ru" АдресПоиска="http://www.yandex.ru/yandsearch?text="+СтрокаПоиска; //Пример через COMОбъект ИЕ = Новый COMОбъект("InternetExplorer.Application"); ИЕ.Navigate(АдресПоиска); ИЕ.Visible = 1; Пока ИЕ.ReadyState4 Цикл ОбработкаПрерыванияПользователя();;...
СозданныйСписок = Новый СписокЗначений; СозданныйСписок.Добавить(Перечисления.СтатусЗаявки.Выполнено); СозданныйСписок.Добавить(Перечисления.СтатусЗаявки.ЗакрытиеЗаявки); СозданныйСписок.Добавить(Перечисления.СтатусЗаявки.ОтклоненаРукОтдЗакупок); СозданныйСписок.Добавить(Перечисления.СтатусЗаявки.Удалить); ДокументСписок.Отбор.Сбросить(); ДокументСписок.Отбор.статус.ВидСравнения=ВидСравнения.НеВСписке; ДокументСписок.Отбор.статус.значение = СозданныйСписок; ДокументСписок.Отбор.Статус.установить();
НоваяГруппа = Справочники.Номенклатура.СоздатьГруппу(); // Получить ссылку на группу, в которой должна находиться создаваемая группа. Родитель = Справочники.Номенклатура.НайтиПоНаименованию("Материалы",...
Процедура ФормДиаграммы() Траб=Новый ТаблицаЗначений; Траб.Очистить(); Траб.Колонки.Добавить("ххх"); Траб.Колонки.Добавить("Норм"); Траб.Колонки.Добавить("Факт"); НовСтр=Траб.Добавить(); НовСтр.ххх="а1"; НовСтр.Норм=5; НовСтр.Факт=10; НовСтр=Траб.Добавить(); НовСтр.ххх="а2"; НовСтр.Норм=2; НовСтр.Факт=15; НовСтр=Траб.Добавить();...
Для Каждого метпер Из Метаданные.Перечисления.СостоянияРаботникаОрганизации.ЗначенияПеречисления Цикл МенюКнопки = ЭлементыФормы.ОсновныеДействияФормы.Кнопки.ПодменюНеявки.Кнопки; НоваяКнопка = МенюКнопки.Вставить(инд, метпер.Имя, ТипКнопкиКоманднойПанели.Действие, метпер, Новый Действие("Пометка"));...