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