Функция ОтветственныеЛицаОрганизации(Организация, ДатаСреза, Исполнитель = Неопределено) Экспорт



    Результат = Новый Структура("Руководитель, РуководительДолжность, ГлавныйБухгалтер, Кассир");

    

    Если Организация <> Неопределено тогда



          ЗапросПоЛицам = Новый Запрос();

        ЗапросПоЛицам.УстановитьПараметр("Организация", Организация);

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

        ЗапросПоЛицам.Текст = "

        |ВЫБРАТЬ РАЗРЕШЕННЫЕ

        |    ОтветственныеЛицаОрганизацииСрезПоследних.ОтветственноеЛицо,

        |    ОтветственныеЛицаОрганизацииСрезПоследних.Должность.Наименование КАК Должность,

        |    ВЫБОР КОГДА (ФИОФизЛицСрезПоследних.ФизЛицо) ЕСТЬ NULL  ТОГДА ОтветственныеЛицаОрганизацииСрезПоследних.ФизическоеЛицо.Наименование ИНАЧЕ ФИОФизЛицСрезПоследних.Фамилия + ВЫБОР КОГДА (ФИОФизЛицСрезПоследних.Имя) <> """" ТОГДА "" "" + (ФИОФизЛицСрезПоследних.Имя) ИНАЧЕ """" КОНЕЦ + ВЫБОР КОГДА (ФИОФизЛицСрезПоследних.Отчество) <> """" ТОГДА "" "" + (ФИОФизЛицСрезПоследних.Отчество) ИНАЧЕ """" КОНЕЦ КОНЕЦ КАК ФИОПолное

        |ИЗ

        |    РегистрСведений.ОтветственныеЛицаОрганизации.СрезПоследних(&ДатаСреза, СтруктурнаяЕдиница =Организация) КАК ОтветственныеЛицаОрганизацииСрезПоследних

        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(&ДатаСреза, ФизЛицо ССЫЛКА Справочник.ФизическиеЛица) КАК ФИОФизЛицСрезПоследних

        |        ПО ОтветственныеЛицаОрганизацииСрезПоследних.ФизическоеЛицо = ФИОФизЛицСрезПоследних.ФизЛицо";

                

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

                

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



              Если Выборка.ОтветственноеЛицо = Перечисления.ОтветственныеЛицаОрганизации.Руководитель Тогда

                Результат.Руководитель            = Выборка.ФИОПолное;

                Результат.РуководительДолжность   = Выборка.Должность;



              ИначеЕсли Выборка.ОтветственноеЛицо = Перечисления.ОтветственныеЛицаОрганизации.ГлавныйБухгалтер Тогда

                Результат.ГлавныйБухгалтер        = Выборка.ФИОПолное;



              ИначеЕсли Выборка.ОтветственноеЛицо = Перечисления.ОтветственныеЛицаОрганизации.Кассир Тогда

                Результат.Кассир                  = Выборка.ФИОПолное;



              КонецЕсли;



          КонецЦикла;

    КонецЕсли;



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



КонецФункции // ОтветственныеЛицаОрганизации()   

 // Изменение записей регистра

Процедура ЗаменаПериода()



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

	

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	ОтветственныеЛицаОрганизации.Период,

	|	ОтветственныеЛицаОрганизации.СтруктурнаяЕдиница,

	|	ОтветственныеЛицаОрганизации.ОтветственноеЛицо

	|ИЗ

	|	РегистрСведений.ОтветственныеЛицаОрганизации КАК ОтветственныеЛицаОрганизации

	|ГДЕ

	|	ОтветственныеЛицаОрганизации.Период <= ДАТАВРЕМЯ(2005, 1, 1)

	|	И 

	|	ОтветственныеЛицаОрганизации.СтруктурнаяЕдиница.Наименование ПОДОБНО ""Групп-Трейдинг""

	|	И 

	|	(ОтветственныеЛицаОрганизации.Должность.Наименование ЕСТЬ NULL 

	|	 ИЛИ 

	|	 НЕ(ОтветственныеЛицаОрганизации.Должность.Наименование ПОДОБНО ""Продавец"" 

	|		ИЛИ 

	|		ОтветственныеЛицаОрганизации.Должность.Наименование ПОДОБНО ""Кладовщик""))";



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

	Выборка = Результат.Выбрать();

		

	Запись = РегистрыСведений.ОтветственныеЛицаОрганизации.СоздатьМенеджерЗаписи();



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

		

		Запись.Период = Выборка.Период;

		Запись.СтруктурнаяЕдиница = Выборка.СтруктурнаяЕдиница;

		Запись.ОтветственноеЛицо  = Выборка.ОтветственноеЛицо;

		

		Запись.Прочитать();

 

		Если Запись.Выбран() Тогда

			Запись.Период = Дата(2004, 1, 1);

			

			Запись.Записать();		 

			

		КонецЕсли;

		

	КонецЦикла;



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