Уведомления
Очистить все
1С:Предприятие 8.x
1
Записи
1
Пользователи
0
Likes
210
Просмотры
Создатель темы 10/09/2021 7:41 дп
Процедура ЗаменаПериода() Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ПредставителиПредприятия.Период, | ПредставителиПредприятия.СтруктурнаяЕдиница, | ПредставителиПредприятия.ПредставительПредприятия |ИЗ | РегистрСведений.ПредставителиПредприятия КАК ПредставителиПредприятия |ГДЕ | ПредставителиПредприятия.Период <= ДАТАВРЕМЯ(2021, 1, 1) | И | ПредставителиПредприятия.СтруктурнаяЕдиница.Наименование | ПОДОБНО "ПетровИКомпания" | И | (ПредставителиПредприятия.Должность.Наименование ЕСТЬ NULL | ИЛИ | НЕ(ПредставителиПредприятия.Должность.Наименование | ПОДОБНО "Менеджер" | ИЛИ | ПредставителиПредприятия.Должность.Наименование | ПОДОБНО "Заведующий"))"; Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Запись = РегистрыСведений.ПредставителиПредприятия.СоздатьМенеджерЗаписи(); Пока Выборка.Следующий() Цикл Запись.Период = Выборка.Период; Запись.СтруктурнаяЕдиница = Выборка.СтруктурнаяЕдиница; Запись.ПредставительПредприятия = Выборка.ПредставительПредприятия; Запись.Прочитать(); Если Запись.Выбран() Тогда Запись.Период = Дата(2020, 1, 1); Запись.Записать(); КонецЕсли; КонецЦикла; КонецПроцедуры;