Ситуация в следующем. Есть база 1С БухгалтерияКОРП. 2.0 (2.0.46.8). В этой базе 10 штук "Организаций". Справочник Контрагентов общий для всех организаций. Привязка контрагентов к какой либо организации идет по реквизиту "Организация" в договоре. Необходимо написать правило которыое выгружало бы Контрагентов только по своей организации. Правило я написал. Выгружает. НО, выгружает всех подряд контрагентов, не различая их по привязке договоров. Помогите, где моя ошибка? В ПК ДоговорыКонтрагентов перед выгрузкой прописал:
Если НЕ Источник.Организация  = Неопределено Тогда
    Если    Источник.Организация <> Параметры.Организация Тогда
        Отказ = Истина;
    КонецЕсли;
Иначе
  Отказ = Истина;
КонецЕсли;

В ПК Контрагены в ПослеВыгрузки прописал
Запрос = Новый Запрос("
|ВЫБРАТЬ
| ИСТИНА КАК Активность,
| КонтактнаяИнформация.Объект,
| КонтактнаяИнформация.Тип,
| КонтактнаяИнформация.Вид,
| КонтактнаяИнформация.Представление,
| КонтактнаяИнформация.Поле1,
| КонтактнаяИнформация.Поле2,
| КонтактнаяИнформация.Поле3,
| КонтактнаяИнформация.Поле4,
| КонтактнаяИнформация.Поле5,
| КонтактнаяИнформация.Поле6,
| КонтактнаяИнформация.Поле7,
| КонтактнаяИнформация.Поле8,
| КонтактнаяИнформация.Поле9,
| КонтактнаяИнформация.Поле10,
| КонтактнаяИнформация.Комментарий,
| КонтактнаяИнформация.ТипДома,
| КонтактнаяИнформация.ТипКорпуса,
| КонтактнаяИнформация.ТипКвартиры
|ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
|ГДЕ
| КонтактнаяИнформация.Объект = &Объект");

Запрос.УстановитьПараметр("Объект", Источник);
Выборка = Запрос.Выполнить().Выбрать();
Сообщить(Выборка.Количество());
Пока Выборка.Следующий() Цикл
ВыгрузитьПоПравилу(Выборка, , , , "КонтактнаяИнформация");
КонецЦикла;

Что не так?

А да. Базы приемники точно такие же как база источник.

(1) типовой обмен по организациям почему не используешь? Там в точности так, как ты хочешь. Всё сделано.

я дико извиняюсь, а где он лежит?

мне нужен именно правило обмена, для выгрузки только контрагентов и их реквизитов.

их общих правил флажков убери лишнее и оставь нужное

Ну так перед выгрузкой надо проверять, есть ли у контрагента договор с нужной организацией и давать отлуп если нет такого.

не, в 2.0 там без правил. Там кодом всё написано

(6) В ПК ДоговорыКонтрагентов перед выгрузкой прописал:
+ Code
Если НЕ Источник.Организация  = Неопределено Тогда
    Если    Источник.Организация <> Параметры.Организация Тогда
        Отказ = Истина;
    КонецЕсли;
Иначе
  Отказ = Истина;
КонецЕсли;

(5) Какие флажки?

(9) в правилах выгрузки для справочника контрагентов поставь флажок отключить

(9) На всех полях Код, Наименование, Родитель, ИНН....?

Если уже успел выгрузить лишнее,то проще удалить лишнее, чем повторять процедуры с отбором по организации

(12) Нет, все испытывается в копиях. Просто такое надо будет делать периодический. Мы таким образом хотим добиться уникальности всех контрагентов во всех базах

Уникальность контрагентов определяется не принадлежность договора к организации, а ИНН, КПП или наименованием.

(8) Ну хорошо, договоры не будут выгружены по чужой организации. Как это повлияет на выгрузку всех контрагентов?

(14) Ну чтоб и в организации "А" он назывался "Рога и Копыта Продакшен" и в организации "В", а не "Продакшен Рога  и Копыта", таких организаций штук 10

(15) В правилах есть параметр "Организация", Я хочу чтоб когда я установил организацию "А" у меня выгрузились только контрагенты(с контактной инфой) у которых есть договор с организацией "А"

Т.е. вы в правиле для выгрузки договоров ограничиваете выгрузку договорами по организации и почему-то надеетесь, что и контрагенты не выгрузятся, которые по другому правилу выгружаются?

(18) что мне поправить?

Вы можете в правиле для выгрузки именно КОНТРАГЕНТА организовать проверку, есть ли у него договор с организацией?

а выгрузказагрузкахмл чем не нравится?

(21) Хочу в внешних обработках обработку сделать, бухгалтер заходит в него и нажимает кнопку "Получить контрагентов", и  контрагенты пришли

(20) В ПК Контрагентов "Перед выгрузкой" написал:

Запрос = Новый Запрос("
|ВЫБРАТЬ
|    ДоговорыКонтрагентов.Ссылка,
|    ДоговорыКонтрагентов.Владелец,
|    ДоговорыКонтрагентов.Организация
|ИЗ
|    Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов
|ГДЕ
|    ДоговорыКонтрагентов.Владелец = &Владелец
|    И ДоговорыКонтрагентов.Организация = &Организация");

Запрос.УстановитьПараметр("Владелец", Источник);
Запрос.УстановитьПараметр("Организация", Параметры.Организация);
Выборка = Запрос.Выполнить().Выбрать();
Сообщить(Параметры.Организация);
Если Выборка.Следующий() =  Ложь Тогда
        Отказ = Истина;
Конецесли;

Теперь если ручками через обмен XML делать все получается ))) Спасибо!!!
НО когда через внешнюю обработку пытаюсь то не грузит (((
Похоже Параметр.Организация не передается

(0) в ПК то нафига? Гораздо проще получить выборку в ПВД.

(23) а слабо из внешней обработки запустить универсальную?

ну так и делается
&НаСервере
Процедура ВыгрузитьНаСервере() Экспорт
    // Получим Универсальную обработку обмена данными XML
    мУниверсальнаяВыгрузкаДанных    = Обработки.УниверсальныйОбменДаннымиXML.Создать();

    // Получим из макета правила обмена данными
    УникальныйИдентификатор            = Новый УникальныйИдентификатор();
    ИмяВременногоФайлаПравилОбмена    = КаталогВременныхФайлов() + УникальныйИдентификатор + ".xml";

    ГСЧ = Новый ГенераторСлучайныхЧисел();
    
    ИмяФайлаВыгрузки = КаталогВременныхФайлов() + "ДокументыВХомнет" + ГСЧ.СлучайноеЧисло(0, 999) + ".xml";

    МакетПравилОбмена =ПолучитьМакет("ПравилоВыгрузкиКонтрагентов");
    
    Если МакетПравилОбмена = Неопределено Тогда
        Возврат;    
    КонецЕсли;
    
    МакетПравилОбмена.Записать(ИмяВременногоФайлаПравилОбмена);

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

   // ВыгрузкаДанных.Параметры.Организация = Организация;
    ВыгрузкаДанных.Параметры.Организация = БазаИсточник.Справочники.Организации.НайтиПоРеквизиту("ИНН", Организация.ИНН);

    
      ВыгрузкаДанных.ВыполнитьВыгрузку();

            
    // Удаляем временный файл правил и внешней обработки
    Попытка
        УдалитьФайлы(ИмяВременногоФайлаПравилОбмена);
    Исключение
        
    КонецПопытки;
    
    
    ЗагрузкаДанных = Обработки.УниверсальныйОбменДаннымиXML.Создать();
    ЗагрузкаДанных.РежимОбмена = "Загрузка";
    ЗагрузкаДанных.ЗагружатьДанныеВРежимеОбмена = Истина;
    ЗагрузкаДанных.ОптимизированнаяЗаписьОбъектов = Истина;
    ЗагрузкаДанных.НеВыводитьНикакихИнформационныхСообщенийПользователю = Истина;
    ЗагрузкаДанных.ИмяФайлаОбмена = ИмяФайлаВыгрузки;
    ЗагрузкаДанных.ВыполнитьЗагрузку();

    Попытка
        УдалитьФайлы(ИмяФайлаВыгрузки);
    Исключение
    КонецПопытки;
    Сообщить("Успешно загрузили");
    
КонецПроцедуры

(26) Это что за народное творчество?
   ВыгрузкаДанных.Параметры.Организация = БазаИсточник.Справочники.Организации.НайтиПоРеквизиту("ИНН", Организация.ИНН);
У тебя выгрузка то идет с текущей базы?

нет, я подключаюсь в другую базу ((((

а как передать параметр?

(29) у тя походу тут COMОбъект в параметр попадает.

а как сделать чтоб "Организация" попадала в параметр выгрузки?

(31) попробуй так БазаИсточник.Параметры.Организация = БазаИсточник.Вычислить("Справочники.Организации.НайтиПоРеквизиту("ИНН", Организация.ИНН)");

иначе придется в обработке универсального обмена довешивать в модуле объекта экспортную процедуру. И вызывать ее с передачей туда ИНН, чтобы она уже в той базе сама параметр устанавливала.

(32) а да - ток вместо Организация.ИНН - там свое значение подставь сразу. А тоя упустил тут этот момент.

(32) Вычислить-то зачем?

(35) выстрел немного наугад так сказать. ИМХО, спасет только экспортная процедура.

(36) А где его прописать?

(37) cv (33).

cv= см

где и как прописать эту экспортную процедуру?

как в модуле объекта экспортная процедура прописывается????

Процедура БлаБлаБла() Экспорт
....
КонецПроцедуры;

(42) только параметр ИНН забыл для процедуры указать, а так все норм.

Мне придется модуль УневерсальногоОбмена переделать?

(18)(20) в типовой БП так и сделано. Именно проверяется наличие договора с этой организацией. И только тогда выгружается.

(45) Правило обмена у меня уже готова, теперь проблема в передачи параметра "Организация"

(44) вот какое слово в (33) непонятно было?

нехороший вариант

чем нехороший то? Одну процедуру вставить всего. И возни минут на 10. Можно, конечно, неделями искать решение.

(46) а чего не написать в ПВД:

Запрос = Новый Запрос("
|ВЫБРАТЬ
|    ДоговорыКонтрагентов.Ссылка,
|    ДоговорыКонтрагентов.Владелец,
|    ДоговорыКонтрагентов.Организация
|ИЗ
|    Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов
|ГДЕ
|    ДоговорыКонтрагентов.Владелец = &Владелец
|    И ДоговорыКонтрагентов.Организация.ИНН = 333333333");

ну или параметром в запрос ИНН передавать а не искать по ИНН организацию там

(51) +100500. Кстати, да, такой вариант я упстил.

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

    ВыгрузкаДанных.Параметры.Организация = ОрганизацияИНН;


Так похоже параметр не поставишь?

точнее
ВыгрузкаДанных.Параметры.ОрганизацияИНН = ОрганизацияИНН;

еще точнее
ВыгрузкаДанных.Параметры.ОрганизацияИНН = Организация.ИНН;

тебе сказали параметр сделай ИНН. А нахождение самой организации по ИНН прямо в правила закатай. Во ты тугой.

Все, спасибо ВСЕМ!!! Сделал так и все работает!

НоваяСтрока = ВыгрузкаДанных.ТаблицаНастройкиПараметров.Добавить();
    НоваяСтрока.Имя = "ОрганизацияИНН";
    НоваяСтрока.Наименование = "ИНН Организации";
    НоваяСтрока.Значение = Организация.ИНН;
    НоваяСтрока.ПередаватьПараметрПриВыгрузке = Ложь;

(56) Организации каждый раз будут разные, жестко фиксировать нельзя.

(58) чего фиксировать то? У всех Организаций один ИНН что ли?