0 Пользователей и 1 Гость просматривают эту тему.
Процедура ЗаменаПериода() Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ОтветственныеЛицаОрганизации.Период, | ОтветственныеЛицаОрганизации.СтруктурнаяЕдиница, | ОтветственныеЛицаОрганизации.ОтветственноеЛицо |ИЗ | РегистрСведений.ОтветственныеЛицаОрганизации КАК ОтветственныеЛицаОрганизации |ГДЕ | ОтветственныеЛицаОрганизации.Период <= ДАТАВРЕМЯ(2005, 1, 1) | И | ОтветственныеЛицаОрганизации.СтруктурнаяЕдиница.Наименование ПОДОБНО ""Групп-Трейдинг"" | И | (ОтветственныеЛицаОрганизации.Должность.Наименование ЕСТЬ NULL | ИЛИ | НЕ(ОтветственныеЛицаОрганизации.Должность.Наименование ПОДОБНО ""Продавец"" | ИЛИ | ОтветственныеЛицаОрганизации.Должность.Наименование ПОДОБНО ""Кладовщик""))"; Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Запись = РегистрыСведений.ОтветственныеЛицаОрганизации.СоздатьМенеджерЗаписи(); Пока Выборка.Следующий() Цикл Запись.Период = Выборка.Период; Запись.СтруктурнаяЕдиница = Выборка.СтруктурнаяЕдиница; Запись.ОтветственноеЛицо = Выборка.ОтветственноеЛицо; Запись.Прочитать(); Если Запись.Выбран() Тогда Запись.Период = Дата(2004, 1, 1); Запись.Записать(); КонецЕсли; КонецЦикла;КонецПроцедуры;
Автор alexbelРаздел Пользователям "1С - Предприятие 8"
Автор Екатерина ВершининаРаздел Пользователям "1С - Предприятие 8"
Автор jetdiggerРаздел Конфигурирование, программирование в "1С - Предприятие 8"
Автор NewbieDinaРаздел Конфигурирование, программирование в "1С - Предприятие 8"
Автор newsРаздел Новости
Бухгалтерский калькулятор
Калькулятор пеней
Инженерный калькулятор
Правила форума
Реклама на сайте
Правообладателям
Помощь