Новое регламентное задание

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

Страницы: 1
RSS
Новое регламентное задание, Помогите добавить регламентное задание
 
День добрый!
Помогите добавить и настроить регламентное задание.
Есть внешняя обработка переноса незакрытых ЗН в текущую дату.
Из внешних обработок она запускается и работает. Вот код обработки:

Если ПустаяСтрока(ИмяПользователя()) Тогда
ИмяПользователя           = "Администратор";
ПолноеИмяПользователя     = "Администратор информационной базы";
Иначе
Если ПустаяСтрока(ПолноеИмяПользователя()) Тогда
ПолноеИмяПользователя = ИмяПользователя();
Иначе
ПолноеИмяПользователя = ПолноеИмяПользователя();
КонецЕсли;
КонецЕсли;

ЕстьОшибки = Ложь;
ТекстОшибки = "";

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