Инструменты: v81_82_83: об./упр. формы. Отключение пользователей: файловый, кл-сервер. Запуск/Вход под другим польз-м. Поиск ссылок на объект СКД. Консоль запр. Отладка ВПФ и ОЗТЧ. Гр.печать, Перепровед-е немоноп-е и др.(Один архив)

Процедура СортироватьПоКодуБыстрогоВыбора_Вниз()
	
	ЭлементыПользовательскихНастроек = Список.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы;
	Для Каждого Элемент Из ЭлементыПользовательскихНастроек Цикл
		Если ТипЗнч(Элемент) = ТипЗнч(Список.КомпоновщикНастроек.Настройки.Порядок) Тогда
			Элемент.Элементы.Очистить();
			УсловиеСортировки = Элемент.Элементы.Добавить(Тип("ЭлементПорядкаКомпоновкиДанных"));
			УсловиеСортировки.Поле = Новый ПолеКомпоновкиДанных("КодБыстрогоВыбора");
			УсловиеСортировки.ТипУпорядочивания = НаправлениеСортировкиКомпоновкиДанных.Убыв;
			УсловиеСортировки.Использование = Истина;
		КонецЕсли;    
	КонецЦикла;
	
КонецПроцедуры


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	ЭлементыПользовательскихНастроек = Список.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы;
	Для Каждого Элемент Из ЭлементыПользовательскихНастроек Цикл
		Если ТипЗнч(Элемент) = ТипЗнч(Список.КомпоновщикНастроек.Настройки.УсловноеОформление) Тогда
			//Элемент.Элементы.Очистить();	
			НовыйЭлементУсловногоОформления = Элемент.Элементы.Добавить(); //Тип("ЭлементУсловногоОформленияКомпоновкиДанных") 
			НовыйЭлементУсловногоОформления.Использование = Истина;
			ПолеЭлемента               = НовыйЭлементУсловногоОформления.Поля.Элементы.Добавить();
			ПолеЭлемента.Поле          = Новый ПолеКомпоновкиДанных("Наименование");
			ПолеЭлемента.Использование = Истина;
			//Отбор    
			ЭлементОтбора = НовыйЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); //
			ЭлементОтбора.Использование  = Истина; 
			ЭлементОтбора.ЛевоеЗначение  = Новый ПолеКомпоновкиДанных("Наименование");
			ЭлементОтбора.ВидСравнения   = ВидСравненияКомпоновкиДанных.Меньше; 
			ЭлементОтбора.ПравоеЗначение = "тест_5";
			НовыйЭлементУсловногоОформления.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.Синий);
		КонецЕсли;    
	КонецЦикла;

	
КонецПроцедуры

Для каждого ЗагружаемыйРеквизит Из ТаблицаЗагружаемыхРеквизитов Цикл
		ЗагружаемыйРеквизит.Пометка = Ложь;		
	      Если ЗагружаемыйРеквизит.ИмяРеквизита = "Код" Тогда 
			ЗагружаемыйРеквизит.Пометка    = Истина;
			ЗагружаемыйРеквизит.ПолеПоиска = Истина;
			
			ЗагружаемыйРеквизит.РежимЗагрузки = "Вычислять";	 
			ТекстВыражения                    = 
                        "Если Прав(ТекстЯчейки, 1) <> ""."" Тогда Результат = ТекстЯчейки + "".""; Иначе Результат =    ТекстЯчейки; КонецЕсли";

			ЗагружаемыйРеквизит.ПредставлениеДопУсловий = ТекстВыражения;  
			ЗагружаемыйРеквизит.Выражение               = ТекстВыражения;
		КонецЕсли;	

		Если ЗагружаемыйРеквизит.ИмяРеквизита = "Наименование" Тогда 
			ЗагружаемыйРеквизит.НомерКолонки  = 2;
			ЗагружаемыйРеквизит.Пометка       = Истина;
               КонецЕсли;	

Функция СведенияОВнешнейОбработке() Экспорт
	
	МассивНазначений = Новый Массив;
	МассивНазначений.Добавить("Документ.РеализацияТоваровУслуг");
	
	ТаблицаКоманд = Новый ТаблицаЗначений;
	ТаблицаКоманд.Колонки.Добавить("Представление");
	ТаблицаКоманд.Колонки.Добавить("Идентификатор");
	ТаблицаКоманд.Колонки.Добавить("Использование");
	ТаблицаКоманд.Колонки.Добавить("ПоказыватьОповещение");
	ТаблицаКоманд.Колонки.Добавить("Модификатор");
	
	НоваяКоманда = ТаблицаКоманд.Добавить();
	НоваяКоманда.Представление = "Лист сбора";
	НоваяКоманда.Идентификатор = "ВнешняяПечатнаяФорма";
	НоваяКоманда.Использование = "ВызовСерверногоМетода";
	НоваяКоманда.ПоказыватьОповещение = Истина;
	НоваяКоманда.Модификатор = "ПечатьMXL";
	
	ПараметрыРегистрации = Новый Структура;
	ПараметрыРегистрации.Вставить("Вид", 				"ПечатнаяФорма");   
	ПараметрыРегистрации.Вставить("Назначение", 		МассивНазначений);
	ПараметрыРегистрации.Вставить("Наименование", 		"Лист сбора");
	ПараметрыРегистрации.Вставить("Версия", 			"1");
	ПараметрыРегистрации.Вставить("БезопасныйРежим", 	Ложь);
	ПараметрыРегистрации.Вставить("Информация", 		"Расходный ордер - Лист сбора");
	ПараметрыРегистрации.Вставить("Команды", 			ТаблицаКоманд);
	
	Возврат ПараметрыРегистрации;
	
КонецФункции

Процедура Печать(ОбъектыНазначения, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
	
	ТабличныйДокумент = СформироватьПечатнуюФормуРеестра(ОбъектыНазначения, ОбъектыНазначения);
	
	УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
		КоллекцияПечатныхФорм,
		"ВнешняяПечатнаяФорма",
		"Внешняя печатная форма",
		ТабличныйДокумент);
		
КонецПроцедуры

Функция СформироватьПечатнуюФормуРеестра(МассивОбъектовНазначения, ОбъектыПечати);
	
	ТабДокумент = Новый ТабличныйДокумент;
	
	Док = МассивОбъектовНазначения[0];
	Заголовок = Строка(Док.Метаданные().Представление()) + " №" + Док.Номер + " от " + Формат(Док.Дата, "ДФ=dd.MM.yy");
	
	Если Док.СпособДоставки = Перечисления.СпособыДоставки.Самовывоз Тогда
		Доставка = "Самовывоз" + 
					?(Не ЗначениеЗаполнено(Док.АдресДоставки), "", Символы.ПС + "Адрес доставки: " + Док.АдресДоставки);
		
	ИначеЕсли Док.СпособДоставки = Перечисления.СпособыДоставки.СиламиПеревозчика Тогда
		Доставка = "Трансп. компания: " + Док.ПеревозчикПартнер.НаименованиеПолное + 
					?(Не ЗначениеЗаполнено(Док.АдресДоставки), "", Символы.ПС + "Адрес доставки: " + Док.АдресДоставки) +
					?(Не ЗначениеЗаполнено(Док.ДополнительнаяИнформацияПоДоставке), "", Символы.ПС + Док.ДополнительнаяИнформацияПоДоставке);
					
	Иначе
		Доставка = "";
					
	КонецЕсли;
	
	Инфо = "Заказчик: " + Док.Контрагент.НаименованиеПолное + Символы.ПС +
			"Менеджер: " + Док.Партнер.ОсновнойМенеджер.Наименование + Символы.ПС +
			Доставка;
	
	СхемаКомпоновкиДанных = ПолучитьМакет("СКД");
	Настройки = СхемаКомпоновкиДанных.ВариантыНастроек.Основной.Настройки;
	
	Настройки.ПараметрыВывода.Элементы.Найти("Заголовок").Значение = Заголовок;
	Настройки.Структура[0].ПараметрыВывода.Элементы.Найти("Заголовок").Значение = Инфо;
	
	Компоновщик = Новый КомпоновщикНастроекКомпоновкиДанных;
    Компоновщик.ЗагрузитьНастройки(Настройки);

    Компоновщик.Настройки.ПараметрыДанных.Элементы[0].Значение = Док;

    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
    ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
    МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Компоновщик.Настройки);

    ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);

    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(ТабДокумент);
    ПроцессорВывода.Вывести(ПроцессорКомпоновки, Истина);
	
	Возврат ТабДокумент;
	
КонецФункции

ДокОбъект             = РеквизитФормыВЗначение("Объект");
			СхемаКомпоновкиДанных = ДокОбъект.ПолучитьМакет("СхемаКомпоновкиДанных");
			КоличествоДокументов  = 1;	
			ПользовательскиеНастройкиМодифицированы = Ложь;
			
			//УстановитьОбязательныеНастройки(ПользовательскиеНастройкиМодифицированы, );		
			КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных();
			КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных)); 
			//Позже заменим на настройки из реквизита документа
			КомпоновщикНастроек.ЗагрузитьНастройки(СхемаКомпоновкиДанных.НастройкиПоУмолчанию); 
			НастройкиОтчета     = КомпоновщикНастроек.ПолучитьНастройки();
			
			//ВнешниеНаборы = НаборыДанных();	НастройкиОтчета         = КомпоновщикНастроек.ПолучитьНастройки();
			ПараметрыПолученияФакта = ПараметрыПолученияФактаПоНастройкамОтчета(НастройкиОтчета);
			
			ВнешниеНаборы = Новый Структура;	
			//Факт
			ОборотыФакт = ОборотыФакт(НастройкиОтчета, ПараметрыПолученияФакта);
			ВнешниеНаборы.Вставить("ОборотыФакт", ОборотыФакт);
			ВнешниеНаборы.Вставить("ОборотыТолькоФакт", ОборотыФакт.Скопировать(Новый Структура("Сценарий", Справочники.Сценарии.ФактическиеДанные)));
			//План
			ВнешниеНаборы.Вставить("ОборотыПлан", ОборотыПлан(НастройкиОтчета));	
			БюджетированиеСервер.ДополнитьСКДАналитикойПоВиду(СхемаКомпоновкиДанных, "СтатьяБюджетов");		
			БюджетированиеСервер.ДополнитьСКДВыражениямиПредставленияАналитики(СхемаКомпоновкиДанных,
			"НаборыДанных.АналитикаОборотов.Поля",
			"СтатьяБюджетов");	
			Период = БюджетированиеСервер.ЗначениеНастройкиСКД(КомпоновщикНастроек, "Период");
			НачалоПериода = Период.ДатаНачала;
			КонецПериода = Период.ДатаОкончания;
			ДопСвойства = КомпоновщикНастроек.ПользовательскиеНастройки.ДополнительныеСвойства;
			
			ДопСвойства.Удалить("КоличествоДокументовКОтражениюВБюджетировании");
			Если РегистрыСведений.ЗаданияКОтражениюВБюджетировании.ТребуетсяОтражениеВБюджетированииДляОтчетаЗаПериод(
				НачалоПериода, КонецПериода, КоличествоДокументов) Тогда
				
				ФактическиеДанныеБюджетированияСервер.ОтразитьДокументыФоновымЗаданием(НачалоПериода, КонецПериода);
				ДопСвойства.Вставить("КоличествоДокументовКОтражениюВБюджетировании", КоличествоДокументов);
				ДопСвойства.Вставить("НачалоПериода", НачалоПериода);
				ДопСвойства.Вставить("КонецПериода", КонецПериода);
				
			КонецЕсли;	
			////////////////////////////////////////////////////////////­//////////////////////////////////////////
			КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
			ДанныеРасшифровки = Неопределено;
			МакетКомпоновки   = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.ПолучитьНастройки(), ДанныеРасшифровки);
			ДокументРезультат = Новый ТабличныйДокумент;
			
			СкорректироватьСвязиНаборовДанныхМакетаКомпоновки(МакетКомпоновки);
			
			ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
			ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ВнешниеНаборы, ДанныеРасшифровки, Истина);
			
			ПроцессорВыводаВТабличныйДокумент = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
			ПроцессорВыводаВТабличныйДокумент.УстановитьДокумент(ДокументРезультат);
			ПроцессорВыводаВТабличныйДокумент.Вывести(ПроцессорКомпоновкиДанных);
			
			ФактическиеДанныеБюджетированияСервер.ВывестиАктуальностьОтраженияФактическихДанных(ДокументРезультат, ДопСвойства);
						
			ДокументРезультат.ОтображатьЗаголовки = Ложь;
			ДокументРезультат.ОтображатьСетку = Ложь;
			ДокументРезультат.АвтоМасштаб = Истина;
			
			Возврат ДокументРезультат;//.Показать();

Процедура ДействияФормыСформировать(Кнопка)
	
	
	Параметр = ЭтотОбъект.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ДатаНач");
	Параметр.Значение = НачалоПериода;
	Параметр.Использование = Истина;
	Параметр = ЭтотОбъект.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ДатаКон");
	Параметр.Значение = КонецПериода;
	Параметр.Использование = Истина;
	
	//Заголовок
	Параметр = ЭтотОбъект.КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("Title");	
	Нач = Формат(НачалоПериода, "ДЛФ=Д");
	Кон = Формат(КонецПериода,  "ДЛФ=Д");
	Параметр.Значение = "Отчет по ""Остаткам товаров"" за период, с: " + Нач + "---  по: "+  Кон;
	Параметр.Использование = Истина;
	
	ЭлементыФормы.Результат.Очистить();
	ЭтотОбъект.СкомпоноватьРезультат(ЭлементыФормы.Результат, ДанныеРасшифровки);
	
	СгенерироватьКнопкиУправленияГруппировкой();
    ЭлементыФормы.Результат.ПоказатьУровеньГруппировокСтрок(0);

КонецПроцедуры


Процедура _СменаВариантаНастройки (Элемент) 
	Для каждого Настройка Из СхемаКомпоновкиДанных.ВариантыНастроек Цикл 
		Если Элемент.Текст = Настройка.Представление тогда 
			КомпоновщикНастроек.ЗагрузитьНастройки(Настройка.Настройки); 
			Прервать; 
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры 

Процедура УстановитьВариантыНастроек()
	КП = ЭлементыФормы.ДействияФормы; 
	НоваяКнопка = КП.Кнопки.Вставить(1,"_ВариантыОтчетов", ТипКнопкиКоманднойПанели.Подменю, "Варианты отчетов", ); 
	НовоеДействие = Новый Действие("_СменаВариантаНастройки"); 
	ч = 1; 
	Для каждого Настройка Из СхемаКомпоновкиДанных.ВариантыНастроек Цикл
		НоваяКнопка = КП.Кнопки._ВариантыОтчетов.Кнопки.Добавить("Вариант"+Строка(ч), ТипКнопкиКоманднойПанели.Действие, Настройка.Представление, НовоеДействие); 
		ч = ч + 1; 
	КонецЦикла; 
КонецПроцедуры

&НаСервере
Процедура СформироватьОтчетНаСервере()
	
	Если не ЗначениеЗаполнено(ВариантОтчета) Тогда
		Сообщить("Вы не выбрали вариант отчета - отчет не будет сформирован");	
	Иначе
		
		Для Каждого СтрНастроек Из ТаблицаНастроекВарианта Цикл
			Если не ЗначениеЗаполнено(СтрНастроек.Значение) и СтрНастроек.ЗапрещатьНезаполненныеЗначения Тогда
				Сообщить("Вы не выбрали "+СтрНастроек.Заголовок+" - отчет не будет сформирован");	
				Возврат;
			КонецЕсли;	
		КонецЦикла;	
		
		ОтчетОбъект = ЭтаФорма.РеквизитФормыВЗначение("Отчет");
		СхемаКомпоновки = ОтчетОбъект.ПолучитьМакет(ВариантОтчета);
		Отчет.КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновки));	
		Отчет.КомпоновщикНастроек.ЗагрузитьНастройки(СхемаКомпоновки.НастройкиПоУмолчанию);
		
		Для Каждого СтрНастроек Из ТаблицаНастроекВарианта Цикл
			Если СтрНастроек.ЭлементОтбораИлиПараметр = "ЭлементОтбора" Тогда
				Для Каждого ЭлементОтбора Из Отчет.КомпоновщикНастроек.Настройки.Отбор.Элементы Цикл
					Если Строка(ЭлементОтбора.ЛевоеЗначение) = СтрНастроек.Имя и
						 ЭлементОтбора.Представление = СтрНастроек.ПредставлениеОтбора Тогда
						ЭлементОтбора.ПравоеЗначение = СтрНастроек.Значение;
						ЭлементОтбора.Использование  = СтрНастроек.Использование;
						ЭлементОтбора.ВидСравнения = СтрНастроек.ВидСравнения;
					КонецЕсли;
				КонецЦикла;
			ИначеЕсли СтрНастроек.ЭлементОтбораИлиПараметр = "Параметр" Тогда
				Параметр = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти(СтрНастроек.Имя);
				Параметр.Значение = СтрНастроек.Значение;
				Параметр.Использование = СтрНастроек.Использование;
			КонецЕсли;	
		КонецЦикла;
		
		ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
		КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
		МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновки,Отчет.КомпоновщикНастроек.Настройки,ДанныеРасшифровки);
		ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
		ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,,ДанныеРасшифровки);
		Результат.Очистить();
		ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
		ПроцессорВывода.УстановитьДокумент(Результат);
		ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
		
		АдресХранилищаДанныхРасшифровки = ПоместитьВоВременноеХранилище(ДанныеРасшифровки, ЭтаФорма.УникальныйИдентификатор);
		
	КонецЕсли;	
	
КонецПроцедуры

Процедура ПоказатьПараметрыИОтборВариантаОтчета(ИмяСхемы)
	
	ТЗ = ЭтаФорма.РеквизитФормыВЗначение("ТаблицаНастроекВарианта");
	ТаблицаНастроекВрем = ТЗ.Скопировать();
	
	ТаблицаНастроекВарианта.Очистить();
	ОтчетОбъект = ЭтаФорма.РеквизитФормыВЗначение("Отчет");
	СхемаКомпоновки = ОтчетОбъект.ПолучитьМакет(ИмяСхемы);
	
	Для Каждого Параметр Из СхемаКомпоновки.Параметры Цикл
		СтрНастроек = ТаблицаНастроекВарианта.Добавить();
		СтрНастроек.Имя = Параметр.Имя;
		СтрНастроек.Заголовок = Параметр.Заголовок+":";
		СтрНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
		СтрНастроек.Использование = Истина;
		СтрНастроек.ТипЗначения = Параметр.ТипЗначения;
		СтрНастроек.ЭлементОтбораИлиПараметр = "Параметр";
		СтрНастроек.ЗапрещатьНезаполненныеЗначения = Параметр.ЗапрещатьНезаполненныеЗначения;
		Если Параметр.ДоступенСписокЗначений Тогда
			СтрНастроек.Значение = Новый СписокЗначений;
		Иначе
			СтрНастроек.Значение = Параметр.ТипЗначения.ПривестиЗначение(Параметр.Значение);
		КонецЕсли;	                                        
	КонецЦикла;	
	
	Отбор = СхемаКомпоновки.ВариантыНастроек.Основной.Настройки.Отбор;
	
	Для Каждого ЭлементОтбора Из Отбор.Элементы Цикл
		
		СтрНастроек = ТаблицаНастроекВарианта.Добавить();
		СтрНастроек.Имя = Строка(ЭлементОтбора.ЛевоеЗначение);
		СтрНастроек.Заголовок = Строка(ЭлементОтбора.ЛевоеЗначение)+":";
		СтрНастроек.ВидСравнения = ЭлементОтбора.ВидСравнения;
		СтрНастроек.Использование = ЭлементОтбора.Использование;
		СтрНастроек.ЭлементОтбораИлиПараметр = "ЭлементОтбора";
		СтрНастроек.ПредставлениеОтбора = ЭлементОтбора.Представление;
		
		МассивТипов = Новый Массив;
		Для Каждого НаборДанных Из СхемаКомпоновки.НаборыДанных Цикл
			Для Каждого Поле Из НаборДанных.Поля Цикл	
				Если СокрЛП(СтрНастроек.Имя) = Поле.Поле Тогда
					МассивТиповПоля = Поле.ТипЗначения.Типы();
					Для Каждого Тип Из МассивТиповПоля Цикл
						МассивТипов.Добавить(Тип);
					КонецЦикла;	
				КонецЕсли;
			КонецЦикла;	
		КонецЦикла;
		
		Для Каждого Поле Из СхемаКомпоновки.ВычисляемыеПоля Цикл
			Если СокрЛП(СтрНастроек.Имя) = Поле.ПутьКДанным Тогда
				МассивТиповПоля = Поле.ТипЗначения.Типы();
				Для Каждого Тип Из МассивТиповПоля Цикл
					МассивТипов.Добавить(Тип);
				КонецЦикла;	
			КонецЕсли;
		КонецЦикла;
		
		СтрНастроек.ТипЗначения = Новый ОписаниеТипов(МассивТипов);
		
		Если СтрНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке или
			СтрНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСпискеПоИерархии или
			СтрНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСписке или
			СтрНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСпискеПоИерархии Тогда
				СтрНастроек.Значение = Новый СписокЗначений;
		Иначе
				СтрНастроек.Значение = СтрНастроек.ТипЗначения.ПривестиЗначение(ЭлементОтбора.ПравоеЗначение);
		КонецЕсли;	
			
	КонецЦикла;
	
	Для Каждого СтрНастроек Из ТаблицаНастроекВарианта Цикл
		Для Каждого СтрНастроекСтарая Из ТаблицаНастроекВрем Цикл
			Если СтрНастроек.Имя = СтрНастроекСтарая.Имя и
				СтрНастроек.Заголовок = СтрНастроекСтарая.Заголовок и
				СтрНастроек.ЭлементОтбораИлиПараметр = СтрНастроекСтарая.ЭлементОтбораИлиПараметр и
                СтрНастроек.ПредставлениеОтбора = СтрНастроекСтарая.ПредставлениеОтбора Тогда
					СтрНастроек.Значение = СтрНастроекСтарая.Значение;	
					СтрНастроек.ВидСравнения = СтрНастроекСтарая.ВидСравнения;
			КонецЕсли;	
		КонецЦикла;	
	КонецЦикла;	
	

	
КонецПроцедуры

ВЫБРАТЬ
Контрагенты.Ссылка
ГДЕ
(Контрагенты.Ссылка, Товары.Ссылка) В
(ВЫБРАТЬ Продажи.Покупатель, Продажи.Товар
ИЗ РегистрНакопления.Продажи КАК Продажи)
ИЗ
Справочник.Контрагенты,
Справочник.Товары   

ВЫБРАТЬ
_ДемоКонтрагенты.Ссылка
ИЗ
Справочник._ДемоКонтрагенты КАК _ДемоКонтрагенты
ЛЕВОЕ СОЕДИНЕНИЕ Документ._ДемоЗаказПокупателя КАК _ДемоЗаказПокупателя
ПО _ДемоКонтрагенты.Ссылка = _ДемоЗаказПокупателя.Контрагент
ГДЕ
_ДемоЗаказПокупателя.Контрагент ЕСТЬ NULL

ВЫБОР
	КОГДА ВложенныйЗапрос.Файл > 0
		ТОГДА 1
	ИНАЧЕ 0
КОНЕЦ

&НаКлиенте
Перем Замер;

&НаКлиенте
Процедура НачатьЗамер()
    Замер = ТекущаяДата();
КонецПроцедуры

&НаКлиенте
Функция ЗакончитьЗамер()
   
   КонВремя = ТекущаяДата();  КонДни      = 0;  КонЧасы     = 0;  КонМинуты   = 0; КонСекунды = 0;
   Если ПустаяСтрока(Замер) Тогда
        // Раз нет стартовой даты - значит процедура начала отсчета времени не была запущена.
        Возврат "Замер времени не начат!";
    КонецЕсли;

    ОстатокВремени = КонВремя - Замер;
    КонДни          = Цел(ОстатокВремени / 86400); //++ 86400 - Количество секунд в сутках
    ОстатокВремени = ОстатокВремени - КонДни * 86400;
    КонЧасы         = Цел(ОстатокВремени / 3600); //++ 3600 - Количество секунд в часе
    ОстатокВремени  = ОстатокВремени - КонЧасы * 3600;
    КонМинуты       = Цел(ОстатокВремени / 60); //++ 60 - Количество секунд в минуте
    ОстатокВремени  = ОстатокВремени - КонМинуты * 60;
    КонСекунды      = ОстатокВремени;
    ТекСтрока       = Формат(КонДни,"ЧН=2; ЧН=0; ЧВН=") + "/" + Формат(КонЧасы,"ЧЦ=2; ЧН=0; ЧВН=") + ":" 
+ Формат(КонМинуты,"ЧЦ=2; ЧН=0; ЧВН=") + ":" + Формат(КонСекунды,"ЧЦ=2; ЧН=0; ЧВН=");
    Возврат ТекСтрока;
КонецФункции

ВремяСтарта = ТекущаяДата(); // ... Далее выполняется нужная обработка ... 
ЗатраченоСекунд = ТекущаяДата() - ВремяСтарта; 
Час_Мин_Сек = Строка(Формат(ЗатраченоСекунд/3600-0.5,"ЧЦ=2;ЧН=;ЧВН=") + ":" 
+ Формат(ЗатраченоСекунд%3600/60-0.5,"ЧЦ=2;ЧН=;ЧВН=") + ":" 
+ Формат(ЗатраченоСекунд%60,"ЧЦ=2;ЧН=;ЧВН=")); // Если ЗатраченоСекунд = 3723, то Час_Мин_Сек = "01:02:03" 

Час_Мин_Сек = Формат('00010101'+ЗатраченоСекунд, "ДФ=HH:mm:ss"); 

КлючеваяОперация = "СозданиеФормыКонтактныеЛица"; 
ОценкаПроизводительностиКлиентСервер.НачатьЗамерВремени(КлючеваяОперация); 

//Задает оформление списку и изменяем строки динамического списка
&НаСервереБезКонтекста
Процедура СписокПриПолученииДанныхНаСервере(ИмяЭлемента, Настройки, Строки)
	
	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("ДС_Ключи", Строки.ПолучитьКлючи());
	Запрос.Текст = 
	"ВЫБРАТЬ РАЗЛИЧНЫЕ
	|	СправочникСЗ.Ссылка КАК Ссылка
	|ИЗ
	|	СправочникСЗ КАК СправочникСЗ
	|ГДЕ
	|	СправочникСЗ.Ссылка В(&ДС_Ключи)";	
	ВыборкаДетальныеЗаписи = Запрос.Выполнить().Выбрать();
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		
		ТекущаяСтатья = ВыборкаДетальныеЗаписи.Ссылка;
		СтрокаСписка  = Строки[ВыборкаДетальныеЗаписи.Ссылка];
		
		//1.Получаем список ЧегоЛибо
		"ВЫБРАТЬ ПЕРВЫЕ 5"	
		
		ВыборкаЦДЗ                   = ЗапросЦО.Выполнить().Выбрать();
		Если ВыборкаЦДЗ.Количество() = 0 Тогда 
			//Выделяем цветом не принадлижащих к консолидирующему предприятию
			Попытка
				СтрокаСписка.Оформление["Код"].УстановитьЗначениеПараметра("ЦветТекста",   WebЦвета.НейтральноСерый);
				СтрокаСписка.Оформление["Наименование"].УстановитьЗначениеПараметра("ЦветТекста",     WebЦвета.НейтральноСерый);
				СтрокаСписка.Оформление["Код_A"].УстановитьЗначениеПараметра("ЦветТекста",     WebЦвета.НейтральноСерый);
				СтрокаСписка.Оформление["Код_B"].УстановитьЗначениеПараметра("ЦветТекста",     WebЦвета.НейтральноСерый);
				СтрокаСписка.Оформление["ПредставлениеЦФО"].УстановитьЗначениеПараметра("ЦветТекста", WebЦвета.НейтральноСерый);
				СтрокаСписка.Оформление["Ответственный"].УстановитьЗначениеПараметра("ЦветТекста",    WebЦвета.НейтральноСерый);
			Исключение
			КонецПопытки;	
			
			Продолжить;
			
		КонецЕсли;		
		
		ПредставлениеСтрокой                     = "";
		ПредставлениеЦО_Строкой                  = "";
		ПредставлениеРуководителя                = "";
		ПринадлежитКонсолидирующемуПредприятию   = Ложь;	
		
		ТаблицаОтветственных = Новый ТаблицаЗначений;
		СтрокаСписка.Данные["ПредставлениеЦО"] = ПредставлениеСтрокой;
		
		//Выделяем цветом не принадлижащих к ЦО
		Если НЕ ПринадлежитК_ЦО Тогда 
			Попытка //исключение ошибок при перестроении списка
			СтрокаСписка.Оформление["Код"].УстановитьЗначениеПараметра("ЦветТекста",   WebЦвета.НейтральноСерый);
			СтрокаСписка.Оформление["Наименование"].УстановитьЗначениеПараметра("ЦветТекста",     WebЦвета.НейтральноСерый);
			СтрокаСписка.Оформление["Код_А"].УстановитьЗначениеПараметра("ЦветТекста",     WebЦвета.НейтральноСерый);
			СтрокаСписка.Оформление["Код_В"].УстановитьЗначениеПараметра("ЦветТекста",     WebЦвета.НейтральноСерый);
			СтрокаСписка.Оформление["ПредставлениеЦО"].УстановитьЗначениеПараметра("ЦветТекста", WebЦвета.НейтральноСерый);
			СтрокаСписка.Оформление["Ответственный"].УстановитьЗначениеПараметра("ЦветТекста",    WebЦвета.НейтральноСерый);
			Исключение
			КонецПопытки;
		КонецЕсли;		
				
	КонецЦикла;	
	
КонецПроцедуры

//ВПФ на СКД

	СсылкаНаОбъектПФ = Объект.Ссылка;
	
	ПечатнаяФормаВыгрузкаExcel.Очистить();
	ДокСсылка             = СсылкаНаОбъектПФ;
	
	СхемаКомпоновкиДанных = Документы.Экземпляр.ПолучитьМакет("ПечатнаяФорма1");
	
	КолонкиТаблицыДанныхВидаБюджета = СформироватьКолонкиТаблицы();
	Периодичности     = Новый Массив;
	МассивПериодов  = ПериодыОтчета(НачалоПериода, ОкончаниеПериода, МинимальнаяПериодичность);
	
	МассивПериодовТаблицей = ВернутьТаблицуПериодов(МассивПериодов);
	НаборыДанных           = Новый Структура("Периоды", МассивПериодовТаблицей);
	
	Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;
	Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Ссылка", ДокСсылка);
	Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Ответственный", Ответственный);
	Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Валюта", Валюта);
	Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Подразделение", Подразделение);	
	Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("ОтборУслОформлВид2", 2);

	КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных();
	КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);
	
	НастройкиКомпоновщика     = КомпоновщикНастроек.Настройки;
	КомпоновщикМакета         = Новый КомпоновщикМакетаКомпоновкиДанных;
	МакетКомпоновки           = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, НастройкиКомпоновщика);
	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
	
	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, НаборыДанных);
	
	ДокументРезультат         = ПечатнаяФормаВыгрузкаExcel;
	ПроцессорВывода           = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
	ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
	
	ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);	
	Возврат ДокументРезультат; //ТабДок

&НаКлиенте
Процедура ОткрытьФормуНового(Команда)
 
               Форма = ПолучитьФорму("Документ.ПродажаТоваровУслуг.Форма.ФормаДокумента");
               ДанныеФормы = Форма.Объект;
               ЗаполнитьНаСервере(ДанныеФормы);
               КопироватьДанныеФормы(ДанныеФормы, Форма.Объект);
               Форма.Открыть();
 
КонецПроцедуры
 
&НаСервере
Процедура ЗаполнитьНаСервере(НовыйОбъект)
               НовыйОбъект.Контрагент = Справочники.Контрагенты.НайтиПоКоду("000000005");          
КонецПроцедуры

//1. Определяем вид документа и помещаем в списки значений	по типам
	
	//Предворительная очистка списков
	СписокПоступлениеТоваровУслуг_ОтборДок.Очистить();
	СписокРеализаций_ОтборДок.Очистить();	
	СписокЗаказПокупателей_ОтборДок.Очистить();
	СписокСчетДоговор_ОтборДок.Очистить();
	СписокСчФактПолуч_ОтборДок.Очистить();	
	СписокСчФактВыданн_ОтборДок.Очистить();
	СписокСчетНаОплатуПокупателю_ОтборДок.Очистить();
	СписокПлатПоручВходящее_ОтборДок.Очистить();
	СписокПлатПоручИсходящее_ОтборДок.Очистить();	
	СписокПлатТребовВыставленное_ОтборДок.Очистить();
	СписокПлатТребовПолученное_ОтборДок.Очистить();
	СписокПоступлениеДопРасходов_ОтборДок.Очистить();
	СписокПриходноКассовыйОрдер_ОтборДок.Очистить();
	СписокРасходноКассовыйОрдер_ОтборДок.Очистить();
	СписокОплатаПлетежнымиКартами_ОтборДок.Очистить();
	СписокКорректировкаДолга_ОтборДок.Очистить();

	
	Для Каждого ТекСтрокаСписокВсехДок из Доки Цикл 
		ФлагОтбора = ТекСтрокаСписокВсехДок.Икона;
		//РТУ
		Если ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.РеализацияТоваровУслуг.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокРеализаций_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);
			//ПТУ	 
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.ПоступлениеТоваровУслуг.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокПоступлениеТоваровУслуг_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);
			//Заказы
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.ЗаказПокупателя.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокЗаказПокупателей_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.СчетДоговор.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокСчетДоговор_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);	 	 
			//СчетФактуры
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.СчетФактураПолученный.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокСчФактПолуч_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);	 
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.СчетФактураВыданный.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокСчФактВыданн_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.СчетНаОплатуПокупателю.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокСчетНаОплатуПокупателю_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);	 
			//Платежки
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.ПлатежноеПоручениеВходящее.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокПлатПоручВходящее_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);	
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.ПлатежноеПоручениеИсходящее.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокПлатПоручИсходящее_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);	
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.ПлатежноеТребованиеВыставленное.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокПлатТребовВыставленное_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);	
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.ПлатежноеТребованиеВыставленное.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокПлатТребовПолученное_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);	
			//ПостДопРасходов
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.ПоступлениеДопРасходов.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокПоступлениеДопРасходов_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);
			//Ордера
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.ПриходныйКассовыйОрдер.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокПриходноКассовыйОрдер_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.РасходныйКассовыйОрдер.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокРасходноКассовыйОрдер_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);
			//Прочее
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.ОплатаОтПокупателяПлатежнойКартой.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокОплатаПлетежнымиКартами_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);
		ИначеЕсли ТипЗНЧ(ТекСтрокаСписокВсехДок.Ссылка)= ТипЗНЧ(Документы.КорректировкаДолга.ПустаяСсылка()) И ФлагОтбора Тогда
			СписокКорректировкаДолга_ОтборДок.Добавить(ТекСтрокаСписокВсехДок.Ссылка);
			//
			
		КонецЕсли;	 	 
	КонецЦикла;	 
	
	//2. Инициализируем правила обмена 
	Обработка = ЭтотОбъект; //Обработки.УниверсальныйОбменДаннымиXML.Создать();
	Обработка.РежимОбмена = "Выгрузка";
	Обработка.ФлагРежимОтладки = Истина;

	
	ВремФайл = ПолучитьИмяВременногоФайла("xml");
	
	//V 4.1.2 - Разделение на правила с перезаписью объектов и без (при обмене)
	Если НЕ ФлПерезаписыватьДоки Тогда
		МакетПравилОбмена = ПолучитьМакет("ПравилаВыгрузки");
	Иначе
		МакетПравилОбмена = ПолучитьМакет("ПравилаВыгрузкиПерезаписьОбъектовПриОбмене");
	КонецЕсли;
	
	МакетПравилОбмена.Записать(ВремФайл);
	
	Обработка.ИмяФайлаПравилОбмена = ВремФайл;//ФайлПравилОбмена; 
	Обработка.ЗагружатьДанныеВРежимеОбмена = Истина;
	Обработка.ЗаписыватьРегистрыНаборамиЗаписей = Истина;
	Обработка.ЗапоминатьЗагруженныеОбъекты = Истина;
	Обработка.ИспользоватьОтборПоДатеДляВсехОбъектов = Ложь;
	
	Обработка.ДатаНачала    = НачалоДня(НачВыгрузки_ОтборДок);
	Обработка.ДатаОкончания = КонецДня(КонВыгрузки_ОтборДок);
	Обработка.ВыгружатьТолькоРазрешенные = Истина; 
	Обработка.ИмяФайлаОбмена = ИмяФайлаОбмена; 
	Обработка.ТипУдаленияРегистрацииИзмененийДляУзловОбменаПослеВыгрузки = 0; // 0 - не снимать регистрацию, 1 - снимать регистрацию 
	
	//###
	Обработка.НепосредственноеЧтениеВИБПриемнике = Истина;
	Обработка.ТипИнформационнойБазыДляПодключения = ТипИнформационнойБазыДляПодключения;
	
	мУниверсальнаяВыгрузкаДанных = ЭтотОбъект;
	//мУниверсальнаяВыгрузкаДанных.ТаблицаПравилВыгрузки.Строки[0].Строки[0].НастройкиПостроителя = мУниверсальнаяВыгрузкаДанных.ПостроительОтчета.ПолучитьНастройки();
	//мУниверсальнаяВыгрузкаДанных.ТаблицаПравилВыгрузки.Строки[0].Строки[0].ИспользоватьОтбор = Истина;
	
	Обработка.ЗагрузитьПравилаОбмена();
	УдалитьФайлы(ВремФайл);
	
	//3.Обход дерева правил и подстановка "Списков ссылок документов" в отборы
	
	//ВременнаяТаблицаПравил = Обработка.ТаблицаПравилВыгрузки.Скопировать();
	ВременнаяТаблицаПравил = Обработка.ТаблицаПравилВыгрузки;
	
	ПереместитьОтборИзСписка_вПравила(ВременнаяТаблицаПравил, мУниверсальнаяВыгрузкаДанных);
	
	//Открываем обработку
	//ОсновнаяФормаОбработкиУнОбменXML = ЭтотОбъект.ПолучитьФорму("Форма");
	//ОсновнаяФормаОбработкиУнОбменXML.Открыть();
	//
	//Если НепосредственноеЧтениеВИБПриемнике Тогда
	//	ОсновнаяФормаОбработкиУнОбменXML.ЭлементыФормы.ПанельПараметрыВыгрузки.ТекущаяСтраница = ОсновнаяФормаОбработкиУнОбменXML.ЭлементыФормы.ПанельПараметрыВыгрузки.Страницы.ВыгрузкаВИБПриемник;
	//Иначе
	//	ОсновнаяФормаОбработкиУнОбменXML.ЭлементыФормы.ПанельПараметрыВыгрузки.ТекущаяСтраница = ОсновнаяФормаОбработкиУнОбменXML.ЭлементыФормы.ПанельПараметрыВыгрузки.Страницы.ВыгрузкаВФайл;
	//КонецЕсли
	
	ТекущееВремяНачалаВыгрузки = ТекущаяДата();
	Обработка.ВыполнитьВыгрузку();	
	
	ОчиститьСообщения();
	Сообщить("Начало выгрузки: " + СокрЛП(ТекущееВремяНачалаВыгрузки));
	Сообщить("Окончание выгрузки: " + СокрЛП(ТекущаяДата()));

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

//Получение структуры на сервере для обработки на клиенте по ссылке
Функция ПолучитьСтруктуруРеквизитовСправочника(СправочникСсылка)
	
	ИмяСправочника       = СправочникСсылка.Метаданные().Имя;
	РеквизитыСправочника = Новый Структура();
	Для каждого Рекв Из Метаданные.Справочники[ИмяСправочника].Реквизиты Цикл
		ИмяРеквизита      = Рекв.Имя;
		ЗначениеРеквизита = СправочникСсылка[ИмяРеквизита];
		РеквизитыСправочника.Вставить(ИмяРеквизита, ЗначениеРеквизита);
	КонецЦикла;
	
	Возврат РеквизитыСправочника;
	
КонецФункции

Если ОбщегоНазначения.ПодсистемаСуществует("***") Тогда
		//Какие-то действия
	КонецЕсли;

	// Получаем коллекцию корневых подсистем.
	ВсеПодсистемы = Метаданные.Подсистемы;
	
	// Обходим все корневые и вложенные подсистемы.
	Для каждого ЭлементКоллекцииПодсистем из ВсеПодсистемы Цикл
		//Ограничение только по своим подсистемам.
		//Если СтрНайти(ЭлементКоллекцииПодсистем.Имя,"ХХ_") = 0 Тогда
		//	Продолжить;
		//КонецЕсли;


// Получени состава объектов переданной подсистемы.
Процедура ПолучитьСоставОбъектовПодсистемы(ЭлементКоллекцииПодсистем, табВнешнийИсточник, Родитель)
	ОбъектыМетаданных = ЭлементКоллекцииПодсистем.Состав;
	ЗаполнитьДанныеПодсистем(ЭлементКоллекцииПодсистем, ОбъектыМетаданных, табВнешнийИсточник,  Родитель);
КонецПроцедуры

// Заполнение составом подсистемы таблицы значений.
Процедура ЗаполнитьДанныеПодсистем(Подсистема, КоллекцияОбъектовПодсистемы, табВнешнийИсточник, Родитель)
	Для каждого Значение из КоллекцияОбъектовПодсистемы Цикл
		ИндексЭлемента = СтрНайти(Значение.ПолноеИмя(), ".");
		стрОбъектМетаданных = Лев(Значение.ПолноеИмя(), ИндексЭлемента - 1);
		СтрокаТЗ = табВнешнийИсточник.Добавить();
		СтрокаТЗ.Родитель = Родитель;
		СтрокаТЗ.Подсистема = Подсистема.Имя;
		СтрокаТЗ.ИмяОбъектаМетаданных = стрОбъектМетаданных;
		СтрокаТЗ.ИмяОбъекта = Значение.ПолноеИмя();
		СтрокаТЗ.ПризнакНаличия = Истина;
	КонецЦикла;
КонецПроцедуры

ЭтаФорма.Элементы.РазрешитьРедактированиеРеквизитовОбъекта.Видимость = Ложь;

Обработка.ЗагрузкаДанныхИзВнешнихФайлов.Форма.ЗагрузкаДанныхИзФайла

 Функция СвернутьЗапросом(ТаблицаЗначений, Знач КолонкиГруппировок, Знач КолонкиСуммирования, Ф="СУММА") Экспорт
    
    Ф = ВРег(Ф) + "(";
    Если СтрНайти("СУММА(,МИНИМУМ(,МАКСИМУМ(,КОЛИЧЕСТВО(,СРЕДНЕЕ(", Ф) = 0 Тогда
        Ф = "КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ";
    КонецЕсли;
    
    Запрос = Новый Запрос(СтрШаблон("
    |ВЫБРАТЬ
    |    %1
    |ПОМЕСТИТЬ ВТ Из &ТЗ КАК ТЗ
    |;
    |ВЫБРАТЬ
    |    %2
    |ИЗ ВТ КАК ВТ 
    |СГРУППИРОВАТЬ ПО 
    |    %3",
    КолонкиГруппировок + "," + КолонкиСуммирования, // %1
    КолонкиГруппировок + "," + Ф + СтрЗаменить(КолонкиСуммирования, ",", "), " + Ф) + ")", // %2
    КолонкиГруппировок)); // %3
    
    Запрос.Параметры.Вставить("ТЗ", ТаблицаЗначений);
    
    Возврат Запрос.Выполнить(); //.Выгрузить();
    
КонецФункции

Функция ЕстьРоль(ИмяРоли, Пользователь = Неопределено) Экспорт

    Если Пользователь = Неопределено Тогда
        Пользователь = Пользователи.ТекущийПользователь();
    КонецЕсли;
    
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
                   |    ГруппыДоступаПользователи.Пользователь КАК Пользователь
                   |ИЗ
                   |    Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи
                   |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ПрофилиГруппДоступа.Роли КАК ПрофилиГруппДоступаРоли
                   |        ПО ГруппыДоступаПользователи.Ссылка.Профиль = ПрофилиГруппДоступаРоли.Ссылка
                   |ГДЕ
                   |    ПрофилиГруппДоступаРоли.Роль.Имя = &Роль
                   |    И ГруппыДоступаПользователи.Пользователь = &Пользователь
                   |
                   |ОБЪЕДИНИТЬ ВСЕ
                   |
                   |ВЫБРАТЬ
                   |    ГруппыПользователейСостав.Пользователь
                   |ИЗ
                   |    Справочник.ГруппыПользователей.Состав КАК ГруппыПользователейСостав,
                   |    Справочник.ПрофилиГруппДоступа.Роли КАК ПрофилиГруппДоступаРоли,
                   |    Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи
                   |ГДЕ
                   |    ПрофилиГруппДоступаРоли.Роль.Имя = &Роль
                   |    И ГруппыПользователейСостав.Пользователь = &Пользователь
                   |
                   |ОБЪЕДИНИТЬ ВСЕ
                   |
                   |ВЫБРАТЬ
                   |    ГруппыВнешнихПользователейСостав.ВнешнийПользователь
                   |ИЗ
                   |    Справочник.ГруппыВнешнихПользователей.Состав КАК ГруппыВнешнихПользователейСостав
                   |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи
                   |            ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ПрофилиГруппДоступа.Роли КАК ПрофилиГруппДоступаРоли
                   |            ПО ГруппыДоступаПользователи.Ссылка.Профиль = ПрофилиГруппДоступаРоли.Ссылка
                   |        ПО ГруппыВнешнихПользователейСостав.Ссылка = ГруппыДоступаПользователи.Пользователь
                   |ГДЕ
                   |    ПрофилиГруппДоступаРоли.Роль.Имя = &Роль
                   |    И ГруппыВнешнихПользователейСостав.ВнешнийПользователь = &Пользователь";
    
    Запрос.УстановитьПараметр("Пользователь",    Пользователь);
    Запрос.УстановитьПараметр("Роль",            ИмяРоли);
    
    УстановитьПривилегированныйРежим(Истина);
    РезультатЗапроса = Запрос.Выполнить();
    УстановитьПривилегированныйРежим(Ложь);
    
    Возврат Не РезультатЗапроса.Пустой();        
    
КонецФункции

1) ПолучитьНавигационнуюСсылкуИнформационнойБазы (GetInfoBaseURL)

2) ОбщегоНазначения.АдресПубликацииИнформационнойБазыВЛокальнойСети()+"/#"+ПолучитьНавигационнуюСсылку(Документ)

3) ПерейтиПоНавигационнойСсылке(Документ_71);
Документ_71 = "e1cib/data/Документ.ЗакупочнаяПроцедура?ref=80fc20040feaf59011eb7b13e99ec275";
Документ_58 = "e1cib/data/Документ.ЗакупочнаяПроцедура?ref=80f820040feaf59011eb6a003ad36f06";

4) Процедура ПолучитьСсылкуИзНавигационной(НС)
    
    ПерваяТочка = Найти(НС, "e1cib/data/");
    ВтораяТочка = Найти(НС, "?ref=");
    
    ПредставлениеТипа   = Сред(НС, ПерваяТочка + 11, ВтораяТочка - ПерваяТочка - 11);
    ШаблонЗначения = ЗначениеВСтрокуВнутр(ПредопределенноеЗначение(ПредставлениеТипа + ".ПустаяСсылка"));
    ЗначениеСсылки = СтрЗаменить(ШаблонЗначения, "00000000000000000000000000000000", Сред(НС, ВтораяТочка + 5));
    Ссылка = ЗначениеИзСтрокиВнутр(ЗначениеСсылки);
    
     КонецПроцедуры   

УИД = Новый УникальныйИдентификатор();

                НоваяСсылка = Справочники[ИмяМетаданных].ПолучитьСсылку(УИД);

                НовыйЭлемент = Справочники[ИмяМетаданных].СоздатьЭлемент();

                НовыйЭлемент.УстановитьСсылкуНового(НоваяСсылка);

Процедура ПолучитьСсылкуНажатие(Элемент)		 
	Если ЗначениеЗаполнено(ОбъектИБ) Тогда			    
		// Получаем полный путь к метаданным объекта                        
		ТипОбъектаИБ = ОбъектИБ.Метаданные().ПолноеИмя();			    
		// Получаем GUID объекта в информационной базе                        
		GUIDОбъектаИБ = ОбъектИБ.УникальныйИдентификатор();					   
		// Формируем строку ссылки как "Путь метаданных + GUID объекта"                        
		СсылкаНаОбъект = Строка(ТипОбъектаИБ) + "__" + GUIDОбъектаИБ;	    
	Иначе			    
		Сообщить("Нужно выбрать объект информационной базы!", СтатусСообщения.ОченьВажное);	  	
	КонецЕсли;	  	
КонецПроцедуры

Процедура КнопкаВыполнитьНажатие(Кнопка)	   
	// Ищем разделитель информации о типе объекта и его GUID'е            
	Разделитель = Найти(СсылкаНаОбъект, "__");	   
	Если Разделитель 0 Тогда			    
		// Парсим путь к метаданным из текста ссылки                        
		МетаданныеОбъекта = Лев(СсылкаНаОбъект, Найти(СсылкаНаОбъект, "__")-1);			  	// Получаем соответствующий менеджер для типа                        
		Если Найти(МетаданныеОбъекта, "Документ") 0 Тогда
			Менеджер = Документы;			   
		ИначеЕсли Найти(МетаданныеОбъекта, "Справочник") 0 Тогда				   
			Менеджер = Справочники;			    
		ИначеЕсли Найти(МетаданныеОбъекта, "ПланВидовРасчета") 0 Тогда				   		Менеджер = ПланыВидовРасчета;				  
		ИначеЕсли Найти(МетаданныеОбъекта, "ПланВидовХарактеристик") 0 Тогда				 	Менеджер = ПланыВидовХарактеристик;				   
		ИначеЕсли Найти(МетаданныеОбъекта, "ПланСчетов") 0 Тогда				   
			Менеджер = ПланыСчетов;				   
		ИначеЕсли Найти(МетаданныеОбъекта, "БизнесПроцесс") 0 Тогда				   			Менеджер = БизнесПроцессы;				
		ИначеЕсли Найти(МетаданныеОбъекта, "Задача") 0 Тогда				   
			Менеджер = Задачи;				  
		КонецЕсли;			   
		// Парсим имя объекта                        
		Имя = Прав(МетаданныеОбъекта, СтрДлина(МетаданныеОбъекта) - Найти(МетаданныеОбъекта, "."));	  // Получаем GUID из текста ссылки                        
		GUIDОбъекта = Новый УникальныйИдентификатор(СтрЗаменить(СсылкаНаОбъект, МетаданныеОбъекта+"__", ""));			    
		// По GUID'у получаем ссылку на объект и открываем ее                        
		ПолученнаяСсылка = Менеджер[Имя].ПолучитьСсылку(GUIDОбъекта);			    
		ОткрытьЗначение(ПолученнаяСсылка);	    
	КонецЕсли;			 	 
КонецПроцедуры

НовыйGUID               = Новый УникальныйИдентификатор("e99ec275-7b13-11eb-80fc-20040feaf590");
ДокументСсылка_изGUID    = Документы.ЗакупочнаяПроцедура.ПолучитьСсылку(НовыйGUID);
ПараметрыФормы                = Новый Структура("Ключ", ДокументСсылка_изGUID);
ОткрытьФорму("Документ.ЗакупочнаяПроцедура.Форма.ФормаДокумента", ПараметрыФормы);
ОткрытьЗначение(ДокументСсылка_изGUID);	    

ГУИД_Параметра = "e99ec275-7b13-11eb-80fc-20040feaf590";
ЗаголовокНавигационнойСсылки = "e1cib/data/Документ.ЗакупочнаяПроцедура?ref=";
НавигациооннаяСтрокаОбъекта  = Сред(ГУИД_Параметра,20,4)+ Сред(ГУИД_Параметра,25,12)+ Сред(ГУИД_Параметра,15,4)+ Сред(ГУИД_Параметра,10,4)+ Лев(ГУИД_Параметра,8);
НавигациооннаяСсылккаОбъекта = ЗаголовокНавигационнойСсылки + НавигациооннаяСтрокаОбъекта;
ПерейтиПоНавигационнойСсылке(Документ_71);   

ВЫБРАТЬ
    Т.Ссылка КАК СпецификацияРодитель,
    Т.Спецификация КАК Спецификация,
    Т.Номенклатура,
    Т.Количество * &КоличествоСпецификации КАК Количество,
    Т.Количество КАК КоличествоНормативное,
    &КоличествоСпецификации КАК КоличествоСпецификации
ИЗ
    Справочник.СпецификацииНоменклатуры.ИсходныеКомплектующие КАК Т
ГДЕ
    Т.Ссылка В(&СписокСпецификаций)

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
    ЗНАЧЕНИЕ(Справочник.СпецификацииНоменклатуры.ПустаяСсылка),
    &Спецификация,
    &Спецификация,
    1,
    1,
    1

 // Сначала помещаем ТЗ во временную таблицу
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
Запрос.Текст = "ВЫБРАТЬ * ПОМЕСТИТЬ ТЗ ИЗ &ТЗ КАК ТЗ";
Запрос.УстановитьПараметр("ТЗ", ТЗ);
Запрос.Выполнить();
// Теперь ТЗ можно использовать в запросе:
Запрос.Текст = "
|ВЫБРАТЬ
|   ТЗ.Номенклатура,
|   Остатки.КоличествоОстаток
|ИЗ
|   ТЗ
|   ЛЕВОЕ СОЕДИНЕНИЕ
|      РегистрНакопления.ТоварыНаСкладах.Остатки() КАК Остатки
|   ПО
|      ТЗ.Номенклатура=Остатки.Номенклатура";

Выборка = Запрос.Выполнить().Выбрать();   

 ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("Номенклатура", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"));

Функция РазницаТаблицЗначений(Таблица0, Таблица1, Измерения) Экспорт
    
    ВсеКолонки = "";
    Для Каждого Колонка Из Таблица0.Колонки Цикл 
        ВсеКолонки = ВсеКолонки + ", " + Колонка.Имя
    КонецЦикла;
    ВсеКолонки = Сред(ВсеКолонки, 2);
    
    Таблица = Таблица1.Скопировать();    
    
    Таблица.Колонки.Добавить("Знак", Новый ОписаниеТипов("Число"));
    
    Таблица.ЗаполнитьЗначения(1, "Знак");
    
    Для Каждого Строка Из Таблица0 Цикл ЗаполнитьЗначенияСвойств(Таблица.Добавить(), Строка) КонецЦикла;
    
    Таблица.Колонки.Добавить("Счёт");
    Таблица.ЗаполнитьЗначения(1, "Счёт");
    
    Таблица.Свернуть(ВсеКолонки, "Знак, Счёт");
    
    Ответ = Таблица.Скопировать(Новый Структура("Счёт", 1), ВсеКолонки + ", Знак");
    
    Ответ.Сортировать(Измерения);
    
    Возврат Ответ
    
КонецФункции

Функция ПолучитьЗначениеДопРеквизита(Ссылка, Свойство) Экспорт

    ПараметрыОтбора = Новый Структура;
    ПараметрыОтбора.Вставить("Свойство",Свойство);
    Массив = Ссылка.ДополнительныеРеквизиты.НайтиСтроки(ПараметрыОтбора);

    Если Массив.Количество() = 0 Тогда
        Возврат Неопределено;
    Иначе
        Возврат Массив[0].Значение;
    КонецЕсли;

КонецФункции

Функция ЗаписатьЗначениеДопРеквизита(Ссылка, Свойство, Значение)
	
    Попытка
        ОбъектСсылки = Ссылка.ПолучитьОбъект();
		
	ПараметрыОтбора = Новый Структура;
	ПараметрыОтбора.Вставить("Свойство",Свойство);
	Массив = ОбъектСсылки.ДополнительныеРеквизиты.НайтиСтроки(ПараметрыОтбора);
		
	Если Массив.Количество() = 0 Тогда
            НовоеСвойство = ОбъектСсылки.ДополнительныеРеквизиты.Добавить();
	    НовоеСвойство.Свойство = Свойство;
	    НовоеСвойство.Значение = Значение;
	Иначе
	    Массив[0].Значение = Значение;
	КонецЕсли;	
	
	ОбъектСсылки.Записать();	
    Исключение
	Возврат Ложь;
    КонецПопытки
	
КонецФункции

//KKY - Добавляем дату отправки электронного письма
	//ДанныеСтроки.ДатаОтправленияПисьма = ТекущаяДата();
	
	//Заказ покупателя № 8 от 16 марта 2021 г
	
	Номердокумента            = ОбщегоНазначения.ПолучитьНомерНаПечать(ДанныеСтроки.Ссылка);
	ДатаДокументаДень         = Формат(ДанныеСтроки.Ссылка.Дата, "ДФ=д");
	ДатаДокументаМесяц        = Сред(Формат(ДанныеСтроки.Ссылка.Дата, "ДФ=ddMMMM"),3);
	ДатаДокументаГод          = Формат(ДанныеСтроки.Ссылка.Дата, "ДФ=гггг");
	ФорматнаяСтрокаДляЗапроса = "Заказ покупателя № " + Номердокумента + " от " + ДатаДокументаДень + " " + ДатаДокументаМесяц + " " + ДатаДокументаГод + " г"; 
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ первые 1
		|	ВложенияЭлектронныхПисем.Наименование КАК Наименование,
		|	ЭлектронноеПисьмо.ДатаОтправления
		|ИЗ
		|	Справочник.ВложенияЭлектронныхПисем КАК ВложенияЭлектронныхПисем
		|		ЛЕВОЕ СОЕДИНЕНИЕ Документ.ЭлектронноеПисьмо КАК ЭлектронноеПисьмо
		|		ПО ВложенияЭлектронныхПисем.Объект = ЭлектронноеПисьмо.Ссылка
		|ГДЕ
		|	ВложенияЭлектронныхПисем.Наименование ПОДОБНО &ФорматнаяСтрокаДокумента";
	
	Запрос.УстановитьПараметр("ФорматнаяСтрокаДокумента", "%" + ФорматнаяСтрокаДляЗапроса + "%");
	ВыборкаДетальныеЗаписи = Запрос.Выполнить().Выбрать();
	ВыборкаДетальныеЗаписи.Следующий();
	Если ВыборкаДетальныеЗаписи.Количество()>0 Тогда
		ОформлениеСтроки.Ячейки.ДатаОтправленияПисьма.УстановитьТекст(Формат(ВыборкаДетальныеЗаписи.ДатаОтправления, "ДЛФ=Д"));	
	КонецЕсли;

// Вложения
                            Запрос = Новый Запрос;
                            
                            Запрос.УстановитьПараметр("ВыбОбъект", Письмо);
                            Запрос.УстановитьПараметр("ПустаяСтрока", "");
                            
                            Запрос.Текст =
                            "ВЫБРАТЬ РАЗРЕШЕННЫЕ
                            |    ВложенияЭлектронныхПисем.Ссылка КАК Ссылка,
                            |    ВложенияЭлектронныхПисем.Наименование КАК Наименование,
                            |    ВложенияЭлектронныхПисем.ИмяФайла КАК ИмяФайла,
                            |    ВложенияЭлектронныхПисем.Хранилище КАК ХранилищеЗначения
                            |ИЗ
                            |    Справочник.ВложенияЭлектронныхПисем КАК ВложенияЭлектронныхПисем
                            |ГДЕ
                            |    ВложенияЭлектронныхПисем.Объект = &ВыбОбъект
                            |    И ВложенияЭлектронныхПисем.ИДФайлаПочтовогоПисьма = &ПустаяСтрока";
                            
                            Выборка = Запрос.Выполнить().Выбрать();
                            Пока Выборка.Следующий() Цикл
                                ИмяФайла = "";
                                Если НЕ ПустаяСтрока(Выборка.ИмяФайла) Тогда
                                    ИмяФайла = Выборка.ИмяФайла;
                                ИначеЕсли НЕ ПустаяСтрока(Выборка.Наименование) Тогда
                                    ИмяФайла = Выборка.Наименование;
                                КонецЕсли;
                                ДвоичныеДанные = Выборка.ХранилищеЗначения.Получить();
                                Если ТипЗнч(ДвоичныеДанные) = Тип("ДвоичныеДанные") Тогда
                                    ПочтовоеСообщение.Вложения.Добавить(Выборка.ХранилищеЗначения.Получить(), ИмяФайла);
                                КонецЕсли; 
                            КонецЦикла;