В начало

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

 

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

 

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

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

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

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

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

            | ИЗ

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

            | ГДЕ

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

            | И

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

            | И

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

            | ИЛИ

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

            | ИЛИ

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

 

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

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

 

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

 

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

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

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

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

                       

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

                       

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

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

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

                        КонецЕсли;

            КонецЦикла;

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