USE acc_main

ALTER DATABASE acc_main SET RECOVERY SIMPLE

DBCC SHRINKFILE (acc_main, 50);

ALTER DATABASE acc_main SET RECOVERY FULL    

 &НаКлиенте

Процедура ВыбратьФайлКартинки(Команда)

//Создаем оповещение,   именно  процедура  "ОбработатьВыборФайла"  будет вызвана при закрытии окна выбора файла

 Оповещение  =  Новый ОписаниеОповещения("ОбработатьВыборФайла",   ЭтотОбъект);

//Открываем интерактивно  окно для выбора файла

НачатьПомещениеФайла(Оповещение,   ,   ,   Истина,   УникальныйИдентификатор);

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

 &НаКлиенте

Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт

Если Не Результат Тогда

 Возврат; 

КонецЕсли;

СсылкаНаКартинку = Адрес;

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

 &НаСервере

Процедура Перед3аписьюНаСервере(Отказ, ТекущийОбьект, ПараметрыЗаписи)

Если ЭтоАдресВременногоХранилища(СсылкаНаКартинку) Тогда

 ТекущийОбьект.ДанныеКартинки = Новый ХранилищеЗначения( ПолучитьИзВремеиногоХранилища(СсылкаНаКартинку) );

КонецЕсли; 

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

   

 &НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

 СсылкаНаКартинку = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ДанныеКартинки"); 

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

   

 Параметры = ВнешниеИсточникиДанных.DAX.ПолучитьОбщиеПараметрыСоединения();

 Параметры.АутентификацияСтандартная = Истина;

 Параметры.ИмяПользователя = "sa";

 Параметры.Пароль = "pas";

 Параметры.СтрокаСоединения = "DRIVER={SQL Server};SERVER=servet;UID=sa;PWD=;DATABASE=database";

 Параметры.СУБД = "MSSQLServer";

 

 ВнешниеИсточникиДанных.DAX.УстановитьОбщиеПараметрыСоединения(Параметры);

 ВнешниеИсточникиДанных.DAX.УстановитьПараметрыСоединенияПользователя(ИмяПользователя(), Параметры);

 ВнешниеИсточникиДанных.DAX.УстановитьПараметрыСоединенияСеанса(Параметры);



 ВнешниеИсточникиДанных.DAX.УстановитьСоединение();   

 Функция ИнициализироватьИсточникДанных()



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

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

 Если ДатаКон > '20100101' Тогда

  ДатаКон = '20100101'; 

 КонецЕсли;

 

 КЧ = Новый КвалификаторыЧисла(15,2);

 КС = Новый КвалификаторыСтроки(255);

 

 МассивЧисло = Новый Массив();

 МассивЧисло.Добавить(Тип("Число"));

 

 МассивСтрока = Новый Массив();

 МассивСтрока.Добавить(Тип("Строка"));

 

 МассивДата = Новый Массив();

 МассивДата.Добавить(Тип("Дата"));



 //В таблицу будем заполнять бухгалтерскую себестоимость

 ТипЧисло = Новый ОписаниеТипов(МассивЧисло,,КЧ);

    ТипСтрока = Новый ОписаниеТипов(МассивСтрока,,КС);

 ТипДата = Новый ОписаниеТипов(МассивДата);

 

 //таблица для загрузки данных из SQL

 ТЗ = Новый ТаблицаЗначений();

 ТЗ.Колонки.Добавить("НоменклатураКод", ТипСтрока);

 ТЗ.Колонки.Добавить("Qnty", ТипЧисло);

 ТЗ.Колонки.Добавить("Период", ТипДата);

 

 ТЗ.Индексы.Добавить("Период");

 

 //Подключаемся к SQL

 СтрокаПодключения = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Pwd=;Data Source=;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=Reports";

 Connection  = Новый COMОбъект("ADODB.Connection");

 Command  = Новый COMОбъект("ADODB.Command");

 RecordSet  = Новый COMОбъект("ADODB.RecordSet");

 Дата = "";

 Попытка

  Connection.Open(СокрЛП(СтрокаПодключения));

  Command.ActiveConnection   = Connection;

  Command.CommandText = "S_elect * from PH where period >= '" + Строка(Формат(ДатаНач, "ДФ=ггггММдд")) + "' and period <= '" + Строка(Формат(ДатаКон, "ДФ=ггггММдд")) + "'";

  RecordSet = Command.Execute();

  RecordSet.MoveFirst();  

 Исключение

  Возврат ТЗ; 

 КонецПопытки;



 Пока RecordSet.EOF = Ложь Цикл

  Строка = ТЗ.Добавить();

  Строка.НоменклатураКод = RecordSet.Fields(RecordSet.Fields.Item(1).Name).Value;

  Строка.Qnty = RecordSet.Fields(RecordSet.Fields.Item(12).Name).Value;

  Строка.Период = RecordSet.Fields(RecordSet.Fields.Item(13).Name).Value;

  RecordSet.MoveNext();

 КонецЦикла;

 

 Запрос = Новый Запрос();

 ВрТаблица = Новый МенеджерВременныхТаблиц();

 Запрос.МенеджерВременныхТаблиц = ВрТаблица;

 Запрос.УстановитьПараметр("врТаблицаДанных",  ТЗ);

 Запрос.УстановитьПараметр("ДатаНач", ДатаНач);

 Запрос.УстановитьПараметр("ДатаКон", ДатаКон);

 Запрос.Текст = "ВЫБРАТЬ

                | врТаблицаДанных.НоменклатураКод,

                | врТаблицаДанных.Qnty,

                | врТаблицаДанных.Период

                |ПОМЕСТИТЬ ТаблицаДанных

                |ИЗ

                | &врТаблицаДанных КАК врТаблицаДанных

                |ГДЕ

                | врТаблицаДанных.Период >= &ДатаНач

                | И врТаблицаДанных.Период <= &ДатаКон";

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

 ТЗ = Неопределено;

 

 Запрос = Новый Запрос;

 Запрос.МенеджерВременныхТаблиц = ВрТаблица;

 Запрос.Текст = "Здесь запрос с участием верменной таблицы";



 Результат = Запрос.Выполнить();

 Возврат Результат;



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





  Внешнийнабор = ИнициализироватьИсточникДанных();

  НаборДанных = Новый Структура();

  НаборДанных.Вставить("ТаблицаSQL", Внешнийнабор);

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

 Процедура КнопкаВыполнитьНажатие(Кнопка)

	

	ИспользоватьОграничение = ЗначениеЗаполнено(ОграничениеТипов);

	РезультатПоиска.Очистить();

	Для Каждого ОбъектыМетаданных Из КоллекцияОбъектов Цикл

		Для Каждого ОбъектМетаданных Из ОбъектыМетаданных Цикл

			Состояние(ОбъектМетаданных.ПолноеИмя());

			ПроверитьОбъектНаБитыеСсылки(ОбъектМетаданных);

		КонецЦикла;

	КонецЦикла;

	Для Каждого ОбъектыМетаданных Из КоллекцияРегистров Цикл

		Для Каждого ОбъектМетаданных Из ОбъектыМетаданных Цикл

			Состояние(ОбъектМетаданных.ПолноеИмя());

			ПроверитьРегистрНаБитыеСсылки(ОбъектМетаданных);

		КонецЦикла;

	КонецЦикла;

	//Анализ последовательностей

	

	//ПроверитьОбъектНаБитыеСсылки(Метаданные.Справочники.СотрудникиОрганизаций);

	

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



Процедура ВывестиДанные(ТекстЗапроса)

	

	Запрос = Новый Запрос(ТекстЗапроса);

	Попытка 

		РезультатЗапроса = Запрос.Выполнить();

		Если Не РезультатЗапроса.Пустой() Тогда

			ТЗ = РезультатЗапроса.Выгрузить();

			Для Каждого Стр Из ТЗ Цикл

				ОбработкаПрерыванияПользователя();

				Строка = РезультатПоиска.Добавить();

				ЗаполнитьЗначенияСвойств(Строка, Стр);

			КонецЦикла;

		КонецЕсли;

	Исключение

		Сообщить(ИнформацияОбОшибке().Описание + " " + ИнформацияОбОшибке().Причина);

	КонецПопытки;

	

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



Процедура ПроверитьРегистрНаБитыеСсылки(ОбъектМетаданных)

	

	ИмяТаблицы = ОбъектМетаданных.ПолноеИмя();

	Если Метаданные.РегистрыСведений.Содержит(ОбъектМетаданных) Тогда

		Если ОбъектМетаданных.РежимЗаписи = НезависимыйРежимЗаписи Тогда

			//АнализСвойствРегистраСведений(ОбъектМетаданных, ОбъектМетаданных.Измерения, ИмяТаблицы);

			//АнализСвойствРегистраСведений(ОбъектМетаданных, ОбъектМетаданных.Ресурсы, ИмяТаблицы);

			//АнализСвойствРегистраСведений(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);

			Возврат;

		КонецЕсли;

		АнализСвойствРегистра(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);

	КонецЕсли;

	АнализСвойствРегистра(ОбъектМетаданных, ОбъектМетаданных.Измерения, ИмяТаблицы);

	АнализСвойствРегистра(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);

	

	АнализРегистратораРегистра(ОбъектМетаданных, ИмяТаблицы);

	

	Если Метаданные.РегистрыБухгалтерии.Содержит(ОбъектМетаданных) Тогда

		//Для рег. бухгалтерии анализ субконто

		

	КонецЕсли;

	Если Метаданные.РегистрыРасчета.Содержит(ОбъектМетаданных) Тогда

		//Для регистров расчета доп. анализ

	КонецЕсли;



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



Процедура ПроверитьОбъектНаБитыеСсылки(ОбъектМетаданных)

	

	ИмяТаблицы = ОбъектМетаданных.ПолноеИмя();

	АнализСвойствОбъекта(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);

	Для Каждого ТабЧасть Из ОбъектМетаданных.ТабличныеЧасти Цикл

		Если ТабличныеЧастиИсключения.Найти(ТабЧасть.Имя) <> Неопределено Тогда

			Продолжить;

		КонецЕсли;

		АнализСвойствОбъекта(ОбъектМетаданных, ТабЧасть.Реквизиты, ИмяТаблицы + "." + ТабЧасть.Имя)

	КонецЦикла;

	//проверка владельца у справочников

	Если Метаданные.Справочники.Содержит(ОбъектМетаданных) И ОбъектМетаданных.Владельцы.Количество() > 0 Тогда

		МассивВладельцев = Новый Массив;

		Для Каждого Элемент Из ОбъектМетаданных.Владельцы Цикл

			МассивВладельцев.Добавить(Элемент);

		КонецЦикла;

		//АнализСвойствВладельцаОбъекта(ОбъектМетаданных, МассивВладельцев, ИмяТаблицы);

	КонецЕсли;

	

	//Для задач поле исполнитель

	//проверки в журналах

	

	ОбработкаПрерыванияПользователя();

	

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



Процедура АнализСвойствОбъекта(ОбъектМетаданных, Свойства, ИмяТаблицы)

	

	Для Каждого Реквизит Из Свойства Цикл

		Если РеквизитыИсключения.Найти(Реквизит.Имя) <> Неопределено Тогда

			Продолжить;

		КонецЕсли;

		Для Каждого моТип Из Реквизит.Тип.Типы() Цикл

			ТекстЗапроса = "";

			МетаданныеТипа = Метаданные.НайтиПоТипу(моТип);

			Если МетаданныеТипа <> Неопределено

				 И Не Метаданные.Перечисления.Содержит(МетаданныеТипа) Тогда

				Если ИспользоватьОграничение Тогда

					Если Не ПоискПоТипу(МетаданныеТипа.ПолноеИмя()) Тогда

						Продолжить;

					КонецЕсли;

				КонецЕсли;

				ДобавитьВЗапросОбъект(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, Реквизит.Имя, моТип);

			КонецЕсли;

			Если Не ПустаяСтрока(ТекстЗапроса) Тогда

				ВывестиДанные(ТекстЗапроса);

			КонецЕсли;

		КонецЦикла;

	КонецЦикла;

	

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



Процедура АнализСвойствРегистра(ОбъектМетаданных, Свойства, ИмяТаблицы)

	

	Для Каждого Реквизит Из Свойства Цикл

		Если РеквизитыИсключения.Найти(Реквизит.Имя) <> Неопределено Тогда

			Продолжить;

		КонецЕсли;

		Для Каждого моТип Из Реквизит.Тип.Типы() Цикл

			ТекстЗапроса = "";

			МетаданныеТипа = Метаданные.НайтиПоТипу(моТип);

			Если МетаданныеТипа <> Неопределено

				 И Не Метаданные.Перечисления.Содержит(МетаданныеТипа) Тогда

				Если ИспользоватьОграничение Тогда

					Если Не ПоискПоТипу(МетаданныеТипа.ПолноеИмя()) Тогда

						Продолжить;

					КонецЕсли;

				КонецЕсли;

				ДобавитьВЗапросРегистр(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, Реквизит.Имя, моТип);

			КонецЕсли;

			Если Не ПустаяСтрока(ТекстЗапроса) Тогда

				ВывестиДанные(ТекстЗапроса);

			КонецЕсли;

		КонецЦикла;

	КонецЦикла;

	

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



Процедура АнализРегистратораРегистра(ОбъектМетаданных, ИмяТаблицы)

	

	МассивРегистраторов = ПолучитьСписокРегистраторов(ОбъектМетаданных);

	Для Каждого Регистратор Из МассивРегистраторов Цикл

		Если РеквизитыИсключения.Найти("Регистратор") <> Неопределено Тогда

			Продолжить;

		КонецЕсли;

		моТип = Регистратор;

		ТекстЗапроса = "";

		МетаданныеТипа = Метаданные.НайтиПоТипу(моТип);

		Если МетаданныеТипа <> Неопределено

			 И Не Метаданные.Перечисления.Содержит(МетаданныеТипа) Тогда

			Если ИспользоватьОграничение Тогда

				Если Не ПоискПоТипу(МетаданныеТипа.ПолноеИмя()) Тогда

					Продолжить;

				КонецЕсли;

			КонецЕсли;

			ДобавитьВЗапросРегистр(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, "Регистратор", моТип);

		КонецЕсли;

		Если Не ПустаяСтрока(ТекстЗапроса) Тогда

			ВывестиДанные(ТекстЗапроса);

		КонецЕсли;

	КонецЦикла;

	

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



Функция ПолучитьСписокРегистраторов(ОбъектМетаданных)

	

	МассивРегистраторов = Новый Массив;

	МенеджерОбъект = ПолучитьМенеджерОбъекта(ОбъектМетаданных);

	Если МенеджерОбъект <> Неопределено Тогда

		НаборЗаписей = МенеджерОбъект.СоздатьНаборЗаписей();

		ЭлементОтбора = НаборЗаписей.Отбор.Регистратор;

		МассивРегистраторов = ЭлементОтбора.ТипЗначения.Типы();

	КонецЕсли;

	Возврат МассивРегистраторов;

	

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



Функция ПолучитьМенеджерОбъекта(ОбъектМетаданных)

	

	Перем МенеджерОбъекта;

	Если Метаданные.РегистрыБухгалтерии.Содержит(ОбъектМетаданных) Тогда

		МенеджерОбъекта = РегистрыБухгалтерии[ОбъектМетаданных.Имя];

	ИначеЕсли Метаданные.РегистрыНакопления.Содержит(ОбъектМетаданных) Тогда

		МенеджерОбъекта = РегистрыНакопления[ОбъектМетаданных.Имя];

	ИначеЕсли Метаданные.РегистрыСведений.Содержит(ОбъектМетаданных) Тогда

		МенеджерОбъекта = РегистрыСведений[ОбъектМетаданных.Имя];

	ИначеЕсли Метаданные.РегистрыРасчета.Содержит(ОбъектМетаданных) Тогда

		МенеджерОбъекта = РегистрыРасчета[ОбъектМетаданных.Имя];

	КонецЕсли;

	Возврат МенеджерОбъекта;

	

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



Функция ПоискПоТипу(ИмяТипа)

	

	Результат = Ложь;

	Если ИспользоватьОграничение Тогда

		МассивСтрок = ОграничениеТипов.НайтиСтроки(Новый Структура("ТипДанных", ИмяТипа));

		Если ЗначениеЗаполнено(МассивСтрок) Тогда

			Результат = Истина;

		КонецЕсли;

	КонецЕсли;

	Возврат Результат;

	

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



Процедура ДобавитьВЗапросРегистр(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, ИмяРеквизита, ТипРеквизита)

	

	Текст = "ВЫБРАТЬ Об." + ИмяРеквизита + " КАК Объект, 

			|	""" + ИмяТаблицы + "." + ИмяРеквизита + """ КАК ТаблицаИсточник, 

			|	Об.Регистратор КАК ОбъектИсточник,

			| 	" + ДобавитьОписаниеТипа(ИмяРеквизита, ТипРеквизита) + " 

			|ИЗ 

			|	" + ИмяТаблицы + " КАК Об

			|ГДЕ " + ДобавитьУсловия(ИмяРеквизита, ТипРеквизита);

	ТекстЗапроса = ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса), "", Символы.ПС + "ОБЪЕДИНИТЬ ВСЕ" + Символы.ПС) + Текст;	

	

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



Процедура ДобавитьВЗапросОбъект(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, ИмяРеквизита, ТипРеквизита)

	

	Текст = "ВЫБРАТЬ Об." + ИмяРеквизита + " КАК Объект, 

			|	""" + ИмяТаблицы + "." + ИмяРеквизита + """ КАК ТаблицаИсточник, 

			|	Об.Ссылка КАК ОбъектИсточник,

			| 	" + ДобавитьОписаниеТипа(ИмяРеквизита, ТипРеквизита) + " 

			|ИЗ 

			|	" + ИмяТаблицы + " КАК Об

			|ГДЕ " + ДобавитьУсловия(ИмяРеквизита, ТипРеквизита);

	ТекстЗапроса = ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса), "", Символы.ПС + "ОБЪЕДИНИТЬ ВСЕ" + Символы.ПС) + Текст;

	

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



Функция ДобавитьУсловия(ИмяРеквизита, ТипРеквизита)

	

	мдОбъекта = Метаданные.НайтиПоТипу(ТипРеквизита);

	ИмяТаблицы = мдОбъекта.ПолноеИмя();

	ПроверкаНаПустыеЗначения = " Об." + ИмяРеквизита + " ССЫЛКА " + ИмяТаблицы;

	ПроверкаНаПустыеЗначения = ПроверкаНаПустыеЗначения + " И ВЫРАЗИТЬ(Об." + ИмяРеквизита + " КАК " + ИмяТаблицы + ").Ссылка есть null";

	Если Не Метаданные.Перечисления.Содержит(мдОбъекта) Тогда

		ПроверкаНаПустыеЗначения = ПроверкаНаПустыеЗначения + " И Об." + ИмяРеквизита + " <> Значение(" + ИмяТаблицы + ".ПустаяСсылка)";

	КонецЕсли;

	Возврат ПроверкаНаПустыеЗначения;

	

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



Функция ДобавитьОписаниеТипа(ИмяРеквизита, ТипРеквизита)

	

	ОбъектТипа = Метаданные.НайтиПоТипу(ТипРеквизита);

	ИмяТаблицы = ОбъектТипа.ПолноеИмя();

	ОписаниеТипа = """" + ИмяТаблицы + """ КАК ТипДанных";	

	Возврат ОписаниеТипа;

	

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



Процедура ОграничениеТиповТипДанныхНачалоВыбора(Элемент, СтандартнаяОбработка)

	

	Перем ЭлементСписка;

	СтандартнаяОбработка = Ложь;

	Строка = ЭлементыФормы.ОграничениеТипов.ТекущиеДанные;

	Если Не ПустаяСтрока(Строка.ТипДанных) Тогда

		ЭлементСписка = СписокТипов.НайтиПоЗначению(Строка.ТипДанных);

	КонецЕсли;

	ВыбранныйЭлемент = СписокТипов.ВыбратьЭлемент( , ЭлементСписка);

	Если ВыбранныйЭлемент <> Неопределено Тогда

		Строка.ТипДанных = ВыбранныйЭлемент.Значение;

	КонецЕсли;

	

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



РеквизитыИсключения = Новый Массив;



ТабличныеЧастиИсключения = Новый Массив;



СписокТипов = Новый СписокЗначений;

Для Каждого ОбъектМетаданных Из Метаданные.Справочники Цикл

	СписокТипов.Добавить(ОбъектМетаданных.ПолноеИмя(), ОбъектМетаданных.Имя, , БиблиотекаКартинок.СправочникОбъект);

КонецЦикла;



Для Каждого ОбъектМетаданных Из Метаданные.Документы Цикл

	СписокТипов.Добавить(ОбъектМетаданных.ПолноеИмя(), ОбъектМетаданных.Имя, , БиблиотекаКартинок.ДокументОбъект);

КонецЦикла;



КоллекцияОбъектов = Новый Массив;

КоллекцияОбъектов.Добавить(Метаданные.ПланыОбмена);

КоллекцияОбъектов.Добавить(Метаданные.Справочники);

КоллекцияОбъектов.Добавить(Метаданные.Документы);

КоллекцияОбъектов.Добавить(Метаданные.ПланыВидовХарактеристик);

КоллекцияОбъектов.Добавить(Метаданные.ПланыСчетов);

КоллекцияОбъектов.Добавить(Метаданные.ПланыВидовРасчета);

КоллекцияОбъектов.Добавить(Метаданные.БизнесПроцессы);

КоллекцияОбъектов.Добавить(Метаданные.Задачи);



КоллекцияРегистров = Новый Массив;

КоллекцияРегистров.Добавить(Метаданные.РегистрыСведений);

КоллекцияРегистров.Добавить(Метаданные.РегистрыНакопления);

КоллекцияРегистров.Добавить(Метаданные.РегистрыБухгалтерии);

КоллекцияРегистров.Добавить(Метаданные.РегистрыРасчета);

   

  //Пример от ljuter

Процедура УстановкаОтбораГруппСвойствОбъектов()

//	Удаляем параметры отбора

	ПланВидовХарактеристикСписок.Отбор.Сбросить();

//	Делаем выборку свойств из регистра сведений НазначенияСвойствОбъектов по группе

//	номенклатуры из элемента формы ГруппаНоменклатуры. В результате получаем список

//	наименований свойств (нам нужны именно поле Наименование свойства, а не ссылка

//	на само свойство!

	Список = Новый СписокЗначений();    

	РегСв = РегистрыСведений.НазначенияСвойствОбъектов;

    ОтборСв = Новый Структура("Объект");

	ОтборСв["Объект"] = ГруппаНоменклатуры;

    ВыборкаСв = РегСв.Выбрать(ОтборСв);

	Пока ВыборкаСв.Следующий() Цикл

		Если ВыборкаСв.Свойство.ТипХарактеристики = "G" Тогда

			Список.Добавить(ВыборкаСв.Свойство.Наименование, ВыборкаСв.Свойство.Наименование, Ложь);	

		КонецЕсли;

	КонецЦикла;

//	Устанавливаем вид сравнения для отбора типа "В списке" и выгружаем значения

//	из списка выборки в список отбора.	

	ПланВидовХарактеристикСписок.Отбор.Наименование.ВидСравнения = ВидСравнения.ВСписке;	

	ПланВидовХарактеристикСписок.Отбор.Наименование.Значение.ЗагрузитьЗначения(Список.ВыгрузитьЗначения());

    ПланВидовХарактеристикСписок.Отбор.Наименование.Установить();

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

 //   Посчитаем все начисления текущего сотрудника за январь:

ВсегоНачислено = 0;

ЖЗ.ВыбратьЗаписиПоОбъекту (ТекСотр, ДатаНач, ДатаКон);

Пока ЖЗ.ПолучитьЗапись()=1 Цикл

 Если ЖЗ.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеНачисления)=1 Тогда

   ВсегоНачислено = ВсегоНачислено + ЖЗ.Результат;

 КонецЕсли;

КонецЦикла;



//   Теперь рассчитаем все записи текущего сотрудника, введеные в текущем месяце:

ЖЗ.ВыбратьПериодПоОбъекту (ТекСотр, ДатаНач);

Пока ЖЗ.ПолучитьЗапись()=1 Цикл

   ЖЗ.Рассчитать();

КонецЦикла;



///   Рассчитаем все записи по документу, независимо от того, в каком расчетном периоде записи порождались:

ЖЗ.ВыбратьЗаписиПоДокументу (ВыбрДокумент);

Пока ЖЗ.ПолучитьЗапись()=1 Цикл

   ЖЗ.Рассчитать();

КонецЦикла;



//   Рассчитаем все записи по указанному подразделению. В журнале расчетов указана графа отбора "Подразделение".

ТекПер = ЖЗ.ТекущийПериод();

ЖЗ.ВыбратьПоЗначению ("Подразделение",ВыбрПодразделение, ТекПер, ТекПер);

Пока ЖЗ.ПолучитьЗапись()=1 Цикл

   ЖЗ.Рассчитать();

КонецЦикла;