a-sitnikov

USE master;
GO

ALTER DATABASE [uh-sitnikov]
SET SINGLE_USER
WITH ROLLBACK IMMEDIATE;
GO

RESTORE DATABASE [uh-sitnikov] 
FROM  DISK = N'D:\MSSQL\Backup\uh2.bak' 

a-sitnikov

&НаКлиенте
Процедура КомандаПеребор(Команда)
	
	Значения = Новый Массив;
	Значения.Добавить("а");
	Значения.Добавить("б");
	Значения.Добавить("в");
	
	МаксЗначение = Значения.Количество() - 1;

a-sitnikov

Процедура ВывестиТаблицу(ТабДок, Таблица, АвтоопределениеШирины = Истина, МинШирина = 10) Экспорт
	
	ШиринаКолонок = Новый Массив;
	
	Макет = Новый ТабличныйДокумент;
	Область = Макет.Область("R1:R2");
	Область.СоздатьФорматСтрок();
	
	Для Счетчик = 1 По Таблица.Колонки.Количество() Цикл
		

a-sitnikov

&НаКлиентеНаСервереБезКонтекста
Процедура УстановитьПометкуГруппы(Строка)
	
	ИтогоПометка = 0;
	Колво        = 0;
	
	Строки = Строка.ПолучитьЭлементы();
	Для каждого Строка1 из Строки Цикл
		
		Если Строка1.Пометка = 1 Тогда

a-sitnikov

Процедура ВывестиВсеТаблицыЗапроса(ТабДок, Запрос, ВременныеТаблицы, НеВыводитьПоУмолчанию) Экспорт
	
	МассивРезультатов = Запрос.ВыполнитьПакет();
	
	Макет = Новый ТабличныйДокумент;
	Область = Макет.Область(1, 1,);
	Область.Заполнение = ТипЗаполненияОбластиТабличногоДокумента.Параметр;
	Область.Параметр   = "Имя";
	Область.Шрифт      = Новый Шрифт(,, Истина);
	

a-sitnikov

delete from [ИмяБазы].[dbo].[Config] where FileName = 'commit'
delete from [ИмяБазы].[dbo].[Config] where FileName = 'dbStruFinal'
delete from [ИмяБазы].[dbo].[Config] where FileName = 'DynamicallyUpdated' --(для версии 8.3)
delete from [ИмяБазы].[dbo].[Config] where FileName = 'dynamicCommit' --(для версии 8.3)
delete from [ИмяБазы].[dbo].[ConfigSave]

a-sitnikov

&НаКлиенте
Процедура Сохранить(Команда)
	
	Адрес = СохранитьНаСервере();
	Описание = Новый ОписаниеПередаваемогоФайла(Объект.ИмяФайла, Адрес);
	МассивОписаний = Новый Массив;
	МассивОписаний.Добавить(Описание);
	ПолучитьФайлы(МассивОписаний,,,Ложь);
	
	Состояние("Файл сохранен");

a-sitnikov

&НаКлиенте
Процедура ЗаполнитьМарки(Команда)
	
	ОписаниеОповещения = Новый ОписаниеОповещения("ЗаполнитьМаркиЗавершение", ЭтотОбъект);
	ПоказатьВопрос(ОписаниеОповещения, "Заполнить марки?", РежимДиалогаВопрос.ДаНет,, КодВозвратаДиалога.Нет);
	
КонецПроцедуры

&НаКлиенте
Процедура ЗаполнитьМаркиЗавершение(Ответ, ДопПараметры) Экспорт

a-sitnikov

Функция ПолучитьДанныеРасшифровки(АдресРасшифровки, Расшифровка) Экспорт
	
	ДанныеРасшифровки = ПолучитьИзВременногоХранилища(АдресРасшифровки);
	ЭлементРасшифровки = ДанныеРасшифровки.Элементы[Расшифровка];
	
	СтруктураГруппировок = Новый Структура;
	ДобавитьГруппировкиРасшифровки(ЭлементРасшифровки.ПолучитьРодителей(), ДанныеРасшифровки, СтруктураГруппировок);
	
	МассивРесурсов = НайтиВсеРесурсыПоГруппировкам(ДанныеРасшифровки, ЭлементРасшифровки.ПолучитьРодителей());

a-sitnikov

cd /D "%~dp0"
cscript.exe erp.js