Ребята, помогите пожалуйста. При нажатии кнопки автоматически создаю документ Установка цен номенклатуры контрагентов. Туда попадают все виды  цен контрагентов. А мне надо определенного. Не могу справиться с отбором по контрагенту.
ДокументОбъект = Документы.УстановкаЦенНоменклатурыКонтрагентов.СоздатьДокумент();
       ДокументОбъект.Дата = Дата;
       ДокументОбъект.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию("ЗЗЗ");
       Контрагент = ДокументОбъект.Контрагент;
       ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(ДокументОбъект);
       ДокументОбъект.Комментарий = "Документ создан автоматически";
       ИндексСтрокиТаблицыЦен = 0;
           Для Каждого ТипЦенНоменклатуры Из мЦеныНоменклатуры Цикл
           СтрокаТипЦен = ДокументОбъект.ТипыЦен.Найти(ТипЦенНоменклатуры.ТипЦен, "ТипЦен");
           
           Если СтрокаТипЦен = Неопределено Тогда
               СтрокаТипЦен = ДокументОбъект.ТипыЦен.Добавить();
               СтрокаТипЦен.ТипЦен = ТипЦенНоменклатуры.ТипЦен;
           КонецЕсли;
           СтруктураПоиска = Новый Структура;
           СтруктураПоиска.Вставить("Номенклатура", НоменклатураОбъект.Ссылка);
           СтруктураПоиска.Вставить("ХарактеристикаНоменклатуры", Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка());
           СтруктураПоиска.Вставить("ТипЦен", ТипЦенНоменклатуры.ТипЦен);
           
           СтрокаТовары = ОбработкаТабличныхЧастей.НайтиСтрокуТабЧасти(ДокументОбъект.Товары, СтруктураПоиска);
           
           Если СтрокаТовары = Неопределено Тогда
               СтрокаТовары = ДокументОбъект.Товары.Добавить();
               СтрокаТовары.Номенклатура = НоменклатураОбъект.Ссылка;
               СтрокаТовары.ТипЦен = ТипЦенНоменклатуры.ТипЦен;
               СтрокаТовары.ИндексСтрокиТаблицыЦен = ИндексСтрокиТаблицыЦен;
           КонецЕсли;
           
           СтрокаТовары.Цена = ТипЦенНоменклатуры.Цена;
           СтрокаТовары.Валюта = ТипЦенНоменклатуры.Валюта;
           СтрокаТовары.ЕдиницаИзмерения = ТипЦенНоменклатуры.ЕдиницаИзмерения;;
       КонецЦикла;

Контрагент = ДокументОбъект.Контрагент;

А это накуя?

И чего ты вообще хочешь сделать?

Где у тебя заполнение ТЧ "ТипыЦен"???

И где вообще у тебя фотка?

ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(ДокументОбъект);

Нафиг выкидывай. 5 реквизитов можно и руками заполнить - быстрее чем целую функцию прогонять

Для Каждого ТипЦенНоменклатуры Из мЦеныНоменклатуры Цикл


Что у тебя в переменной "мЦеныНоменклатуры"???

И вообще, какого ... я тут сам с собой разговариваю?

(7) :-)

(8) ОООО!!!! Собеседник, УРА!!!!

мЦеныНоменклатуры = Новый Соответствие;
           
           Запрос = Новый Запрос("ВЫБРАТЬ РАЗРЕШЕННЫЕ
           |    ТипыЦенНоменклатурыКонтрагентов.Наименование,
           |    ТипыЦенНоменклатурыКонтрагентов.ВалютаЦены  КАК Валюта,
           |    ТипыЦенНоменклатурыКонтрагентов.Владелец КАК Контрагент,
           |    ТипыЦенНоменклатурыКонтрагентов.ТипЦеныНоменклатуры,
           |    ТипыЦенНоменклатурыКонтрагентов.Ссылка КАК ТипЦен
           |ИЗ
           |    Справочник.ТипыЦенНоменклатурыКонтрагентов КАК ТипыЦенНоменклатурыКонтрагентов");
           
           
           мЦеныНоменклатуры = Запрос.Выполнить().Выгрузить();
           мЦеныНоменклатуры.Колонки.Добавить("Цена");
           мЦеныНоменклатуры.Колонки.Добавить("ЕдиницаИзмерения");
           //мЦеныНоменклатуры.ВыбратьСтроку(
           Для Каждого мСтрока из мЦеныНоменклатуры Цикл
               //мСтрока.Контрагент = Шашка.ОсновнойПоставщик;
               мСтрока.Цена = ЦенаЛицензииИтог;
               мСтрока.ЕдиницаИзмерения = НоменклатураОбъект.ЕдиницаХраненияОстатков;
           КонецЦикла;
           
           СоздатьДокументУстановкаЦенНоменклатуры(мЦеныНоменклатуры);
           Сообщить("Создан документ Установка цен номенклатуры контрагентов");

cw014, сорри, не ожидала быстрого ответа)

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

Весь хлам не переписывал - лень

И не взлетит, у тебя переменная "ИндексСтрокиТаблицыЦен" везде = 0

пробую

а что изменить еще надо?индекс пересчитывать?

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

ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(ДокументОбъект);
ДокументОбъект.Комментарий = "Документ создан автоматически";
ИндексСтрокиТаблицыЦен = 0;

СтрокиПоТекущемуКонтрагенту = мЦеныНоменклатуры.Скопировать(Новый Структура("Контрагент", ДокументОбъект.Контрагент);

ДокументОбъект.ТипыЦен.Загрузить(СтрокиПоТекущемуКонтрагенту);

Для Каждого ТипЦен ИЗ СтрокиПоТекущемуКонтрагенту Цикл
   ИндексСтрокиТаблицыЦен = ИндексСтрокиТаблицыЦен + 1;
   СтрокаТовары = ДокументОбъект.Товары.Добавить();
   СтрокаТовары.Номенклатура = НоменклатураОбъект.Ссылка;
   СтрокаТовары.ТипЦен = ТипЦенНоменклатуры.ТипЦен;
   СтрокаТовары.ИндексСтрокиТаблицыЦен = ИндексСтрокиТаблицыЦен;
   СтрокаТовары.Цена = ТипЦенНоменклатуры.Цена;
   СтрокаТовары.Валюта = ТипЦенНоменклатуры.Валюта;
   СтрокаТовары.ЕдиницаИзмерения = ТипЦенНоменклатуры.ЕдиницаИзмерения;;
КонецЦикла;

СтрокиПоТекущемуКонтрагенту = мЦеныНоменклатуры.Скопировать(Новый Структура("Контрагент", ДокументОбъект.Контрагент));

Скобку забыл

СтрокаТовары.ТипЦен = ТипЦен.ТипЦен;
   СтрокаТовары.ИндексСтрокиТаблицыЦен = ИндексСтрокиТаблицыЦен;
   СтрокаТовары.Цена = ТипЦен.Цена;
   СтрокаТовары.Валюта = ТипЦен.Валюта;
   СтрокаТовары.ЕдиницаИзмерения = ТипЦен.ЕдиницаИзмерения;;

ТипЦенНоменклатуры - неопределенное значение

СПАСИБО БОЛЬШОЕ ТЕБЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Все заработало наконец то!!!!!!!!!!!!!!!!!!!!!!!!СПАСИБО!!!!

Не игнорируем (4)