Закрытие заказов клиента и заказов поставщика ежедневно
Всем привет. 1С:Комплексная автоматизация 2 (2.4.13.149). Пытаюсь сделать закрытие заказа программным кодом так:
но почему-то не работает, подскажите в чем ошибка? Пробую пока на заказе клиента по кнопке, как заработает перенесу в регламентное задание и по аналогии сделаю с заказом поставщику, может есть другие способы выполнять ежедневно.? За ранее спасибо огромное за ответы!
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЗаказКлиента.Ссылка КАК Ссылка,
| СостоянияЗаказовКлиентов.Ссылка КАК Состояние
|ИЗ
| Документ.ЗаказКлиента КАК ЗаказКлиента
| ЛЕВОЕ СОЕДИНЕНИЕ Перечисление.СостоянияЗаказовКлиентов КАК СостоянияЗаказовКлиентов
| ПО ЗаказКлиента.Ссылка = СостоянияЗаказовКлиентов.Ссылка";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ВыборкаДетальныеЗаписи.Состояние = Перечисления.СостоянияЗаказовКлиентов.ГотовКЗакрытию Тогда
Объект.Статус = Перечисления.СтатусыЗаказовКлиентов.Закрыт;
КонецЕсли;
КонецЦикла;
Показатьно почему-то не работает, подскажите в чем ошибка? Пробую пока на заказе клиента по кнопке, как заработает перенесу в регламентное задание и по аналогии сделаю с заказом поставщику, может есть другие способы выполнять ежедневно.? За ранее спасибо огромное за ответы!
По теме из базы знаний
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(4)Спасибо, заработало. Теперь сделал регламентное задание, ругалось на "Объект.Статус", добавил в запрос поле и указал обращение к нему как "ВыборкаДетальныеЗаписи.Статус"
но еще ругается на "ЭтотОбъект" в задании поставил галочки "Сервер" и "Привелигированный".
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЗаказКлиента.Ссылка КАК Ссылка,
| СостоянияЗаказовКлиентов.Заказ КАК Заказ,
| СостоянияЗаказовКлиентов.Состояние КАК Состояние,
| ЗаказКлиента.Статус КАК Статус
|ИЗ
| РегистрСведений.СостоянияЗаказовКлиентов КАК СостоянияЗаказовКлиентов
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.ЗаказКлиента КАК ЗаказКлиента
| ПО СостоянияЗаказовКлиентов.Заказ = ЗаказКлиента.Ссылка";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ВыборкаДетальныеЗаписи.Состояние = Перечисления.СостоянияЗаказовКлиентов.ГотовКЗакрытию Тогда
ВыборкаДетальныеЗаписи.Статус = Перечисления.СтатусыЗаказовКлиентов.Закрыт;
//ЭтаФорма.Записать(Новый Структура("РежимЗаписи", РежимЗаписиДокумента.Проведение));
ЭтотОбъект.Записать(Новый Структура("РежимЗаписи", РежимЗаписиДокумента.Проведение));
//Объект.Записать(РежимЗаписиДокумента.Проведение);
КонецЕсли;
КонецЦикла;
Показатьно еще ругается на "ЭтотОбъект" в задании поставил галочки "Сервер" и "Привелигированный".
(5) Сделал вот так:
Задание выполняется успешно, но заказы которые есть к закрытию, не закрываются, так же висят как и были
Процедура ЗакрытиеЗаказовКлиентовИПоставщиков() Экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЗаказКлиента.Ссылка КАК Ссылка,
| СостоянияЗаказовКлиентов.Заказ КАК Заказ,
| СостоянияЗаказовКлиентов.Состояние КАК Состояние,
| ЗаказКлиента.Статус КАК Статус
|ИЗ
| РегистрСведений.СостоянияЗаказовКлиентов КАК СостоянияЗаказовКлиентов
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.ЗаказКлиента КАК ЗаказКлиента
| ПО СостоянияЗаказовКлиентов.Заказ = ЗаказКлиента.Ссылка";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ВыборкаДетальныеЗаписи.Состояние = Перечисления.СостоянияЗаказовКлиентов.ГотовКЗакрытию Тогда
ДокументОбъект = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
Статус = ВыборкаДетальныеЗаписи.Статус;
Статус = Перечисления.СтатусыЗаказовКлиентов.Закрыт;
ДокументОбъект.Записать(РежимЗаписиДокумента.Проведение);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
ПоказатьЗадание выполняется успешно, но заказы которые есть к закрытию, не закрываются, так же висят как и были
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот