Перенос незакрытых заказ-нарядов в сегодняшний день

Внимание! Данный форум является модерируемым.
Для получения к нему доступа необходимо зарегистрироваться или авторизоваться на сайте.

Страницы: 1
RSS
Перенос незакрытых заказ-нарядов в сегодняшний день, АА5. Менеджеры автосервиса хотят видеть все незакрытые заказ-наряды в текущем дне. Обработку не нашёл. Надо писать свою?
 
Т.е. по типу "Обработки документов". Выбрал период и все непомеченные на удаление и непроведённые заказ-наряды в любом состоянии, кроме "закрыт", переносятся на текущий день. Может это и не совсем правильно, Но им так удобно.
 
Есть, конечно, идея использовать обычный отчет "Реестр заказ-нарядов" добавив в отборы Заказнаряд.Проведен = Ложь, Не знаю, как убедить, что и так можно работать.  Там ведь в заказ-наряде несколько дат. Которые достаточно полно отражают всю историю "движений" автомобиля в рамках ЗН. Но менеджеры привыкли иметь дело только с документами текущего дня еще из АА2.
Изменено: Владимир Бондаренко - 16.08.2013 10:27:12
 
Я свое фоновое задание сделал -по ночам автоматом переносит
 
Цитата
message_text_

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

Комментарии -убрать . это для отладки было

Вроде все
 
Дмитрий Ворожейкин. Спасибо. Избавили от необходимости "изобретать велосипед".
Страницы: 1
Читают тему
Поддержка отраслевых решений «1С-Рарус»
Услуги 1С