Имя: Пароль:
1C
1С v8
План обмена из параметров cmd
0 s-coder
 
18.08.11
09:03
Здравствуйте, настроен автоматический обмен РБД, с помощью бат-файла. Процедура ЗаписатьСообщениеСИзменениями() Экспорт запускается из текстового файла с параметрами.
Возможно ли в данном случае отфильтровать некоторые документы чтобы не отправлялись в подчиненную базу? Процедура ПриОтправкеДанныхПодчиненному не срабатывает.

Процедура ПриОтправкеДанныхПодчиненному(ЭлементДанных, ОтправкаЭлемента)
   ТипДанных = ТипЗнч(ЭлементДанных);
   Если ТипДанных = Тип("ДокументОбъект.РеализацияТоваровУслуг")
       ИЛИ ТипДанных = Тип("ДокументОбъект.ПоступлениеТоваровУслуг") Тогда
       ОтправкаЭлемента = ОтправкаЭлементаДанных.Удалить;
   КонецЕсли;
КонецПроцедуры

Процедура ЗаписатьСообщениеСИзменениями() Экспорт
   Каталог = КаталогВременныхФайлов();
   // Формируем имя временного файла
   ИмяФайла = Каталог + ?(Прав(Каталог, 1) = "\", "", "\") + "Message" +
              СокрЛП(ПланыОбмена.Полный.ЭтотУзел().Код) + "_" + СокрЛП(Ссылка.Код) + ".xml";
   // Создаем объект записи XML
   ЗаписьXML = Новый ЗаписьXML;
   ЗаписьXML.ОткрытьФайл(ИмяФайла);
   ЗаписьXML.ЗаписатьОбъявлениеXML();
   
   // Создаем новое сообщение
   ЗаписьСообщения = ПланыОбмена.СоздатьЗаписьСообщения();
   ЗаписьСообщения.НачатьЗапись(ЗаписьXML, Ссылка);
   
   //ОтпрДанные=Константы.ОтправлятьДанные.Получить();
   Если ПланыОбмена.Полный.ЭтотУзел().ОтпрДанные=Истина Тогда
       ПланыОбмена.ЗаписатьИзменения(ЗаписьСообщения);
   КонецЕсли;
   ЗаписьСообщения.ЗакончитьЗапись();
   ПланыОбмена.Полный.ЭтотУзел().ОтпрДанные=Ложь;
   ЗаписьXML.Закрыть();
КонецПроцедуры // ЗаписатьСообщениеСИзменениями()
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан