Выполнение регламентного задания

1. jaroslav.h 182 20.01.15 15:55 Сейчас в теме

1С 8.3 файловые режим (клиенты подключаются через веб браузер (веб интерфейс))

пытаюсь реализовать одно регламентное задание на самописной базе.
Создаю Обьект.Рагламентное задание с Имям метода Пользовательский.ПроверкаОповещения
+ галки стоят Использование и Предопределенные
с расписанием (для теста) 1 минута
в модуле Пользовательский.ПроверкаОповещения

Функция  ПроверитьПрава() Экспорт 
    
    Права = РольДоступна("Кассир");
    Возврат Права;
    
КонецФункции


Процедура ПроверкаОповещения() Экспорт
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
    "ВЫБРАТЬ
    |    Заявка.Архивный,
    |    Заявка.Продиагностировано,
    |    Заявка.КлиентОповещен,
    |    Заявка.Отремонтировано,
    |    Заявка.Ссылка,
    |    Заявка.ТоварОтдан
    |ИЗ
    |    Документ.Заявка КАК Заявка";
    
    РезультатЗапроса = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    Если ПроверитьПрава() Тогда
        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл 
            Если Не ВыборкаДетальныеЗаписи.Архивный Тогда 
                Если ВыборкаДетальныеЗаписи.Отремонтировано И Не ВыборкаДетальныеЗаписи.ТоварОтдан Тогда 
                    Сообщить("Номенклатура с документа  " + ВыборкаДетальныеЗаписи.Ссылка + "   отремонтирована!"); 
                КонецЕсли;
                
                Если ВыборкаДетальныеЗаписи.Продиагностировано И Не ВыборкаДетальныеЗаписи.КлиентОповещен Тогда
                    Сообщить("Номенклатура с документа  " + ВыборкаДетальныеЗаписи.Ссылка + "  продиагностирована но Клиент не оповещен!");
                КонецЕсли;        
            КонецЕсли;                    
        КонецЦикла;
    КонецЕсли;
    
    
КонецПроцедуры

Показать

так как файловый режим создаю обработку
в форме которой пишу

Процедура ПриОткрытии(Отказ)
ПодключитьОбработчикОжидания("ОбработкаЗаданий", 3);
КонецПроцедуры

&НаКлиенте
Процедура ОбработкаЗаданий()
ВыполнитьОбработкуЗаданий(1);
КонецПроцедуры

+ добавляю в модуль упр приложения

Процедура ПриНачалеРаботыСистемы()
    ОткрытьФорму("Обработка.ПланировщикЗаданий.Форма.Форма");
КонецПроцедуры

Открываю 1с Предприятие как с правами Кассир и паралельно с Полными правами пользователя

жду, жду, уведомление о проверке с запроса нет, а если в модуле упр пр, для теста, вызываюю сразу Процедуру с общего модуля то все работает.

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Xershi 1536 20.01.15 16:37 Сейчас в теме

(1) myr4ik07, в типовых, чтобы работало в файловом режиме требуется включить константу интервала и выбрать пользователя под которым будет оно запускаться.

3. Xershi 1536 20.01.15 16:40 Сейчас в теме

Вот кусок кода при начале работы:

ЭтоФайловаяИБ = ОпределитьЭтаИнформационнаяБазаФайловая();
		Если ЭтоФайловаяИБ Тогда
			ПользовательДляВыполненияРеглЗаданий = Константы.ПользовательДляВыполненияРегламентныхЗаданийВФайловомВарианте.Получить();
			Если глЗначениеПеременной("глТекущийПользователь") = ПользовательДляВыполненияРеглЗаданий Тогда
				ПоддержкаРегламентныхЗаданиеДляФайловойВерсии();
				ИнтервалДляОпроса = Константы.ИнтервалДляОпросаРегламентныхЗаданийВФайловомВарианте.Получить();
				Если ИнтервалДляОпроса = Неопределено
					ИЛИ ИнтервалДляОпроса = 0 Тогда
					ИнтервалДляОпроса = 60;	
				КонецЕсли;
				
				ПодключитьОбработчикОжидания("ПоддержкаРегламентныхЗаданиеДляФайловойВерсии", ИнтервалДляОпроса);
				
			КонецЕсли;
			
		КонецЕсли;

Показать

4. Xershi 1536 20.01.15 16:44 Сейчас в теме

И вот тут почитайте http://infostart.ru/public/70415/

Оставьте свое сообщение

E-mail: