evgenylavelin-xx

&НаСервере
Процедура ВыполнитьПаралельноНаСервере()
	
	МассивЗаданий = Новый Массив;
	
	Для Каждого ТекСтрока ИЗ ТЗСклады Цикл
		
		НаборПараметров = Новый Массив;
		НаборПараметров.Добавить("%ЗначениеПараметра1%");			
		НаборПараметров.Добавить("%ЗначениеПараметраN%");			

evgenylavelin-xx

// Формирует и выводит сообщение, которое может быть связано с элементом 
// управления формы.
//
//  Параметры
//  ТекстСообщенияПользователю - Строка - текст сообщения.
//  КлючДанных                - Любая ссылка на объект информационной базы.
//                               Ссылка на объект информационной базы, к которому это сообщение относится,
//                               или ключ записи.
//  Поле                       - Строка - наименование реквизита формы
//  ПутьКДанным                - Строка - путь к данным (путь к реквизиту формы)

evgenylavelin-xx

&НаКлиентеНаСервереБезКонтекста
Функция РазобратьТекст(ИсходныйТекст, Шаблон)
	
	Попытка
		RegExp = Новый COMОбъект("VBScript.RegExp");
	Исключение
		Возврат Новый Массив;
	КонецПопытки;
	
	RegExp.Multiline  = Истина;

evgenylavelin-xx

Функция ПереводЧислаИз_10_В_Любую(Знач Значение=0,Нотация=36) Экспорт
     Если Нотация<=0 Тогда Возврат("") КонецЕсли;
     Значение=Число(Значение);
     Если Значение<=0 Тогда Возврат("0") КонецЕсли;
     Значение=Цел(Значение);
     Результат="";
     Пока Значение>0 Цикл
          Результат=Сред("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",Значение%Нотация+1,1)+Результат;
          Значение=Цел(Значение/Нотация) ;
     КонецЦикла;

evgenylavelin-xx

// http://its.1c.ru/db/v8std#content:-2145783148:hdoc

&НаСервере
Процедура ВыполнитьОперацию()
  Попытка 
    // код, приводящий к вызову исключения
    ....
  Исключение
    // Запись события в журнал регистрации для системного администратора.
    ЗаписьЖурналаРегистрации(НСтр("ru = 'Выполнение операции'"),

evgenylavelin-xx

EXEC sp_MSforeachtable @command1 = "DROP TABLE ?"

evgenylavelin-xx

&НаКлиентеНаСервереБезКонтекста
Функция РазмерКаталога(ПутьККаталогу)
	ФСО = Новый COMОбъект("Scripting.FileSystemObject");
	ИнформацияПоКаталогу = ФСО.GetFolder(ПутьККаталогу);
	Возврат  ИнформацияПоКаталогу.Size;
КонецФункции

evgenylavelin-xx

select program_name, net_transport from sys.dm_exec_sessions t1
left join sys.dm_exec_connections t2
	on t1.session_id = t2.session_id
where program_name like '1cv8%'

evgenylavelin-xx

ВЫБРАТЬ
	Выборка.Ссылка,
	Выборка.Родитель,
	Выборка.Источник,
	Выборка.Приемник
ИЗ
	Справочник.ПравилаКонвертацииОбъектов КАК Выборка
ГДЕ
	Выборка.Владелец = &Владелец
	И (Выборка.Источник.Владелец <> Выборка.Владелец.Источник

evgenylavelin-xx

select name,recovery_model,recovery_model_desc from master.sys.databases where recovery_model <> 3