| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > 1C: Предприятие, SAP, ERP и учётные системы > v8: Конвертация данных + Регламентные задания |
| Автор: matalman 27.2.2008, 14:32 |
| Всем привет. 1С 8.1.8.76 УПП 1.1.3.5 Создал правило обмена для выгрузки документа РеализацияТоваровУслуг. Правило работает корректно. Нужно сделать ночной обмен посредством этого правила. Принято решение делать это через регламентные задания. Вот код обработки: ОбработкаВыгрузки = Обработки.УниверсальныйОбменДаннымиXML.Создать(); ПравилоОбмена = Справочники.ПравилаОбмена.НайтиПоКоду("000000001"); ОбработкаВыгрузки.НепосредственноеЧтениеВИБПриемнике = Истина; ОбработкаВыгрузки.ТипИнформационнойБазыДляПодключения = Ложь; ОбработкаВыгрузки.ВерсияПлатформыИнформационнойБазыДляПодключения = "V81"; ОбработкаВыгрузки.ИмяСервераИнформационнойБазыДляПодключения = ПравилоОбмена.СерверБДМосква; ОбработкаВыгрузки.ИмяИнформационнойБазыНаСервереДляПодключения = ПравилоОбмена.ИмяБазыМосква; ОбработкаВыгрузки.ПользовательИнформационнойБазыДляПодключения = ПравилоОбмена.ПользовательИБМосква; ОбработкаВыгрузки.ПарольИнформационнойБазыДляПодключения = ПравилоОбмена.ПарольПользователяМосква; ОбработкаВыгрузки.ЗагрузитьПравилаОбмена(ПравилоОбмена.ПравилаОбмена, "Строка"); ОбработкаВыгрузки.Параметры.Вставить("КодУзлаПриемника", ПравилоОбмена.УзелМосква.Код); РезультатПодключения = ОбработкаВыгрузки.ВыполнитьПодключениеКИБПриемнику(); Если РезультатПодключения = Неопределено Тогда Сообщить("Подключение к информационной базы приемнику не произошло."); Возврат; КонецЕсли; ОбработкаВыгрузки.ВыполнитьВыгрузку(); Если обработку запускать на клиенте - выгружается все нормально, если же на сервере - не работает. Полазил отладчиком и нашел где сбоит. В конвертации данных в правиле выгрузке в событии Перед обработкой находится вот этот код: Узел = ПланыОбмена.ОбменУслугами.НайтиПоКоду("000000002"); Выборка = ПланыОбмена.ВыбратьИзменения(Узел, 1); ВыборкаДанных = Новый Массив; Пока Выборка.Следующий() Цикл Данные = Выборка.Получить(); Если Данные.Метаданные().Имя = "РеализацияТоваровУслуг" Тогда ВыборкаДанных.Добавить(Данные.Ссылка); ПланыОбмена.УдалитьРегистрациюИзменений(Узел, Данные.Ссылка); КонецЕсли; КонецЦикла; т.е. нужно выгружать только измененные документы. Так вот этот код на сервере не исполняется, можно ли как нить обойти эту ситуацию. Спасибо. |