Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
25 окт 2024, 13:23

как прописать отбор в обработке обмена

Автор Raideres, 22 мая 2016, 18:25

0 Пользователей и 1 гость просматривают эту тему.

Raideres

Подскажите как прописать в обработку универвальный обмен хмл отбор по организации или номенклатуре.
а точнее отбор  например отобрать все поступления  определенной организации.

Обработка=Обработки.ПД_УниверсальныйОбменДаннымиXML.Создать();
Обработка.РежимОбмена="Выгрузка";
//Задаём необходимые для выгрузки параметры
Обработка.ЗагружатьДанныеВРежимеОбмена=Истина;
Обработка.ЗаписыватьРегистрыНаборамиЗаписей=Истина;
Обработка.ЗапоминатьЗагруженныеОбъекты=Истина;
Обработка.ИспользоватьОтборПоДатеДляВсехОбъектов=Истина;
Обработка.ВыгружатьТолькоРазрешенные=Истина;
//Ограничение по дате получается 2 дня назад и по конец текущего дня
Обработка.ДатаНачала = ТекущаяДата() - 60*60*24*2;
Обработка.ДатаОкончания = КонецДня(ТекущаяДата());
//Выгружаем Правила из файла
Обработка.ИмяФайлаПравилОбмена = "C:\Правила.xml";
Обработка.ЗагрузитьПравилаОбмена();
//Выгружаем данные в файл
Обработка.НепосредственноеЧтениеВИБПриемнике=Ложь;
Обработка.ИмяФайлаОбмена = "C:\выгрузка.xml";
ВременнаяТП = Обработка.ТаблицаПравилВыгрузки.Скопировать();//Создали временную таблицу правил
Для Каждого Строка из ВременнаяТП.Строки Цикл
    для каждого строкаК из Строка.Строки цикл
      Если  строкаК.Наименование = "ПоступлениеТоваровУслуг" тогда
        строкаК.Включить = 1;
     
      Иначе
        строкаК.Включить = 0;
      Конецесли;
    КонецЦикла;
КонецЦикла;
Обработка.ТаблицаПравилВыгрузки = ВременнаяТП.Скопировать();
Попытка
    Обработка.ВыполнитьВыгрузку();
    Сообщить ("Выгрузка завершена");
Исключение
    Сообщить ("Выгрузка не выполнена");
    // ЗавершитьРаботуСистемы(Ложь);
КонецПопытки;
//ЗавершитьРаботуСистемы(Ложь);

Raideres


Rasty

Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск