Перенос незакрытых заказ-нарядов в сегодняшний день
Внимание! Данный форум является модерируемым.
Для получения к нему доступа необходимо зарегистрироваться или авторизоваться на сайте.
Доступ к форуму партнерам «1C-Рарус» по дистрибуции предоставляется на сайте
rarus-soft.ru
Читают тему
Добрый день. Выложите как вы настроили если не трудно.
Спасибо.
В параметрах фонового прописал вызов процедуры общего модуля -рисунок параметры фонового. Модуль свой, собственный,что бы меньше "иметь удовольствия" при обновлении программы типовыми конфигурациями .
Ну и в модуле прописал следующее
Процедура ПеренстиЗННаТекущийДень(СтруктураПараметров) экспорт //Макет = ПолучитьМакет("Макет"); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ | ЗаказНаряд.Ссылка КАК ЗН |ИЗ | Документ.ЗаказНаряд КАК ЗаказНаряд |ГДЕ | НЕ ЗаказНаряд.Состояние = ЗНАЧЕНИЕ(Справочник.ВидыСостоянийЗаказНарядов.Закрыт) | И НЕ ЗаказНаряд.Состояние = ЗНАЧЕНИЕ(Справочник.ВидыСостоянийЗаказНарядов.Выполнен) | И ЗаказНаряд.Дата < НАЧАЛОПЕРИОДА(&ТекущаяДата, ДЕНЬ)"; Запрос.УстановитьПараметр("ТекущаяДата", ТекущаяДата()); Результат = Запрос.Выполнить(); ВыборкаДетальныеЗаписи = Результат.Выбрать(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл //ОбластьДетальныхЗаписей.Параметры.Состояние=ВыборкаДетальныеЗаписи.ЗН.Состояние; //ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи); //ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетальныеЗаписи.Уровень()); //#если наклиенте тогда // Сообщить("Был "+ВыборкаДетальныеЗаписи.ЗН); //#конецесли ЗнОбъек=ВыборкаДетальныеЗаписи.ЗН.получитьобъект(); Попытка ЗнОбъек.Дата=ТекущаяДата(); ЗнОбъек.Записать(); //ЗнОбъек.Записать(РежимЗаписиДокумента.Проведение,Режим) Исключение //#если наклиенте тогда // Сообщить("Не записан "+ЗнОбъек); //#конецесли КонецПопытки; #если наклиенте тогда Сообщить("Стал "+ЗнОбъек); #конецесли КонецЦикла; КонецПроцедурыКомментарии -убрать . это для отладки было
Вроде все
Прикрепленные файлы