Регистр сведений, независимы, как установить владельца? Такой код
НоваяЗапись=рсШтрихкоды.Добавить();
НоваяЗапись.Активность=Истина;
НоваяЗапись.Владелец=ТекТовар;
НоваяЗапись.Штрихкод=Товар.Штрихкод;
НоваяЗапись.ТипШтрихкода = ПредопределенноеЗначение("ПланВидовХарактеристик.ТипыШтрихкодов.EAN13");

Запись проходит, владельца нет.

ТекТовар не подходит по типу

что, даже Записать() не помогает?

(1) Дык справочник товара.
(2) Оно записывается, но владелец пустой.

Тип
СправочникСсылка.ИнформационныеКарты, СправочникСсылка.Номенклатура, СправочникСсылка.СерийныеНомера

(0)А ТекТовар заполнен?

НоваяЗапись.Владелец=ТекТовар;
НоваяЗапись.Штрихкод=Товар.Штрихкод;
А почему используется сначало ТекТовар, а потом Товар?

+(5)Если отладчиком посмотреть?

ТекТовар не объект случаем?

Кстати да, может он не ссылка?

(5) (6) ТекТовар это уже записанный элемент справочника.
Вот код, весь.
    cпрТовар = Справочники.Номенклатура;
    тзШтрихкод = Новый ТаблицаЗначений;
    cпрЕдИзм = Справочники.БазовыеЕдиницыИзмерения;
    
    //Обнуляем регистр Штрихкод
    НаборЗаписей = РегистрыСведений.Штрихкоды.СоздатьНаборЗаписей();
    НаборЗаписей.Записать();
    
    рсШтрихкоды=РегистрыСведений.Штрихкоды.СоздатьНаборЗаписей();
    НомерСтроки=1;

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

(10) и не появился владелец?

(11) Нет.

>Дык справочник товара.

звиздеж и провокация

рсШтрихкоды от такого кода не помрет?

(12) конфа какая?

хотя да, по коду помирает раньше...

а отбор по владельцу в наборе не надо делать?

(17) автору нет

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

Теперь другой вопрос, а как мне аналогичное запихнуть в регистр с регистратором?
Надо типа цены записать, а у регистра цен подчинение регистратору документ установка цен.

ТекТовар = Справочники.Номенклатура.СоздатьЭлемент();
        Иначе
            ТекТовар = НайденнаяСсылка.ПолучитьОбъект();
см (9) !!!

(19) отбор по регистратору ставь

(19) меня больше вот это смутило

ТекТовар.ЕдиницаИзмерения = cпрЕдИзм.НайтиПоКоду(642).Ссылка;

(19) Вот так обычно и бывает, напишут нерабочего копрокода, а потом начинается "тама что-то намудрили в модуле менеджера самого регистра".

(19) Создай документ установку цен номенклатуры :)

(22) А что не так? Ищу ссылку и пишу.
(21) Так нет регистратора. Доков то нет. Или сначала док создать, заполнить и на него сослаться.
(23)Так сам и накосячил. Ты лучше расскажи где ковнокод и как правильно, Коли не в тягость. Благодарен буду.

>Так нет регистратора. Доков то нет. Или сначала док создать, заполнить и на него сослаться.

документы сделай нормальные и проведи.

(26) это не слишком гуманно))

(26) Не осилить. Тама такой документ сложный.

(25) Конфа какая?


Просто почти везде ЕдиницыИзмерения - это подчиненный справочник. И для каждого товара создается отдельная единица измерения, искать нужно по владельцу

мдя... вот и поговорили

(25) ПолучитьОбъект() — это ссылка?

(31) в военное время - да

(28) держи, горе

Процедура КнопкаВыполнитьНажатие(Кнопка)
    ТипЦеныЗакупочная=Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Закупочная цена");
    ТипЦеныРозничная=Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Розничная цена");
    ДокументУстановкиЦен=Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
    ДокументУстановкиЦен.Дата=ДатаДокумента;
    НоваяСтрока=ДокументУстановкиЦен.ТипыЦен.Добавить();
    НоваяСтрока.ТипЦен=ТипЦеныРозничная;
    НоваяСтрока=ДокументУстановкиЦен.ТипыЦен.Добавить();
    НоваяСтрока.ТипЦен=ТипЦеныЗакупочная;
    ДокументУстановкиЦен.Комментарий="автоматическая загрузка прайс-листа";
    ДокументУстановкиЦен.Ответственный=ПараметрыСеанса.ТекущийПользователь;
    Для стр=8 По ПоследняяСтрока Цикл
        НоваяСтрока=ДокументУстановкиЦен.Товары.Добавить();
        НоваяСтрока.Номенклатура=Номенклатура;
        НоваяСтрока.ТипЦен=ТипЦеныРозничная;
        НоваяСтрока.Валюта=Справочники.Валюты.НайтиПоКоду("810");
        НоваяСтрока.ЕдиницаИзмерения=Номенклатура.ЕдиницаХраненияОстатков;
        НоваяСтрока.Цена=Sheet.Cells(стр, 4).Value;
        НоваяСтрока=ДокументУстановкиЦен.Товары.Добавить();
        НоваяСтрока.Номенклатура=Номенклатура;
        НоваяСтрока.Валюта=Справочники.Валюты.НайтиПоКоду("810");
        НоваяСтрока.ЕдиницаИзмерения=Номенклатура.ЕдиницаХраненияОстатков;
        НоваяСтрока.ТипЦен=ТипЦеныЗакупочная;
        НоваяСтрока.Цена=Sheet.Cells(стр, 6).Value;
    КонецЦикла;
    ДокументУстановкиЦен.Записать();
    Сообщить("Записан документ "+ДокументУстановкиЦен);
КонецПроцедуры

(29) Розница, там подчиненный упаковки.
(30) Не, не уходи. Документ, так документ. Щас тогда буду делать документ.

(31) дальше читай, он там делает тектовар.ссылка

(10)Для каждого Товар из тзТовар Цикл
        
        //Ищем по коду в справочнике товара

        НайденнаяСсылка = cпрТовар.НайтиПоКоду(СокрЛП(Товар.Код));
        Если НайденнаяСсылка = cпрТовар.ПустаяСсылка() Тогда
            ТекТовар = Справочники.Номенклатура.СоздатьЭлемент();
        Иначе
            ТекТовар = НайденнаяСсылка.ПолучитьОбъект();
        КонецЕсли;    
        ТекТовар.Код = СокрЛП(Товар.Код);    
        ТекТовар.Наименование = СокрЛП(Товар.Название);
        ТекТовар.ЕдиницаИзмерения = cпрЕдИзм.НайтиПоКоду(642).Ссылка;
        ТекТовар.Записать();
Кто-нить объясните мне, что это за хрень?
1. На хрена получать объект по коду, если у нас есть ссылка?
2. На хрена заменять значения реквизитов Объекта, значениями реквизитов его же ссылки?
3. Ну и напоследок почему
НоваяЗапись.Владелец=ТекТовар;
НоваяЗапись.Штрихкод=Товар.Штрихкод;
Если надо:
НоваяЗапись.Владелец=Товар;
НоваяЗапись.Штрихкод=Товар.Штрихкод;

(36) Товар - это строка ТЗ, насколько я понимаю
потом он находит ссылку, по ней объект :)

(33) Блин, у меня документ неправильный какой-то, три табличных части. И при создании дока куча вариантов выбора цен.

(36) тзТовар - это таблица значений.

(38) тому коду лет триста уже. раз не помогает - дорога к программисту

(40) К коду претензий нет. Спасибо. Проблема прикрутить.
А что тут программистов нема?

(40) тоже ждешь окончание рабочего дня, а делать нечего? :)

делать есть чего, а не хочется

(41) ну я программист. 500 рублёв денег - и документ у тебя есть
(42) в моих реалиях уже 21 час ;)

(44) а мне еще часик пострадать :)

(44) " - Где этот чертов инвалид?
       - Не шуми, я инвалид."   )))

а претензии к коду есть: Справочники.Валюты.НайтиПоКоду("810") в цикле

ТекТовар.Ссылка() автору поможет, наверное.

без скобок только

(44) 500 рублев я зайца в поле загоняю.

Док научился создавать.

&НаСервере
Процедура КнСоздатьДокНаСервере()
    ТипЦеныРозничная = Справочники.ВидыЦен.НайтиПоНаименованию("Розничная");
    ДокументУстановкиЦен = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
    ДокументУстановкиЦен.Дата = ТекущаяДата();
    НоваяСтрока=ДокументУстановкиЦен.ВидыЦен.Добавить();
    НоваяСтрока.ВидЦены = ТипЦеныРозничная;
    ДокументУстановкиЦен.Комментарий="автоматическая загрузка прайс-листа";
    ДокументУстановкиЦен.Ответственный=ПараметрыСеанса.ТекущийПользователь;
    
    ДокументУстановкиЦен.Записать();
    Сообщить("Записан документ "+ДокументУстановкиЦен);
КонецПроцедуры

(47)Угуй. Косяк, мой. Спасибо.

(50) да ну нафиг... Сообщить работает? О_о

(50) да ещё и ТЧ у него заполнять
(51) а почему бы и нет, Ватсон? ;)

(52) &НаСервере
Процедура КнСоздатьДокНаСервере()

(51) (52) Да с ТЧ не получается. Ошибка пишет. Нет такой мол. Щас готовый по отладчику разбираю.

(53) не дошло.. тебя Сообщить() с сервера смущает?

(55) ага

хотя глянул в СП - можно и на сервере использовать...

(47) НоваяСтрока.Валюта=Справочники.Валюты.НайтиПоКоду("810"); у тебя тож в цикле - это правильно?

(57) нет. ТипЦеныЗакупочная вынес из цикла, а до валюты руки не дотянулись ;)

(51) ну не то чтобы работает, но не сломается

Блин, ТЧ не победил.
    
    cпрЕдИзм = Справочники.БазовыеЕдиницыИзмерения;
    ЕдИзмСсылка = cпрЕдИзм.НайтиПоКоду(642).Ссылка;
    
    ТипЦеныРозничная = Справочники.ВидыЦен.НайтиПоНаименованию("Розничная");
    ДокументУстановкиЦен = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
    ДокументУстановкиЦен.Дата = ТекущаяДата();
    НоваяСтрока=ДокументУстановкиЦен.ВидыЦен.Добавить();
    НоваяСтрока.ВидЦены = ТипЦеныРозничная;
    ДокументУстановкиЦен.Комментарий="автоматическая загрузка прайс-листа";
    ДокументУстановкиЦен.Ответственный=ПараметрыСеанса.ТекущийПользователь;
    Для каждого Товар из тзТовар Цикл
        НоваяСтрока=ДокументУстановкиЦен.Товары.Добавить();
        НоваяСтрока.Номенклатура = Справочники.Номенклатура.НайтиПоКоду(СокрЛП(10000));
        НоваяСтрока.ТипЦен=ТипЦеныРозничная;
        НоваяСтрока.Валюта=Справочники.Валюты.НайтиПоКоду("810");
        НоваяСтрока.ТипЦен=ТипЦеныРозничная;
        НоваяСтрока.Цена=1000;
        //НоваяСтрока.ЕдиницаИзмерения=Номенклатура.ЕдиницаХраненияОстатков;
    КонецЦикла;
    ДокументУстановкиЦен.Записать();
    Сообщить("Записан документ "+ДокументУстановкиЦен);

единица измерения часто иногда подчинена номенклатуре. поэтому я её брал из номенклатуры

У меня ошибок нет, и тч дока пустая.

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

Хм. У меня таблица значения почему-то пустая.

(64) А де ты ее берешь?

(65) Реквизит формы.

(60) там еще индекс строки вроде есть реквизит

(64) попробовать её чем-нибудь наполнить - это выход?

(68) А она полная, я ее на экране то вижу.

(69) Чет у тебя наоборот получается - суслика нет, а ты его видишь. Или у тебя глюки, или это не тот суслик

В общем так, документ создается, цены и товар заполняются. Провожу. Записей в регистре нет.

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

(71) Где в этом коде указано, что тзТовар это табличная часть документа?

>Справочники.Номенклатура.НайтиПоКоду(СокрЛП(Товар.Код))
в приличных домах за такое ставят на горох. прямо простреленными коленками. кто мешает ссылки в ТЗ хранить?

тзТовар - это таблица значений.

(72) у него уже всё заполняется. теперь нам надо разобраться, почему движений нет при проведении ;)

(73) Потому что в тз загружается тестовый файл с четырьмя полями, код, название, цена и шрихкод. Вот мне и надо справочник организовать.

(74) Пустая?

А где написано что документ проводится?

(75) а ты нде-то проведение разглядел?

(78) (79) в (71)

+(80) мож, он руками потом делает. этот партизан так просто не сознается

(81) Руками. Да.

прочитал название ветки вспомнил что пятница)) прочитал ветку понял что уже конец дня)))

и ведь до сих пор не названа конфигурация. мы ли не молодцы вслепую подсказывать? ;)

в (34) писал, розница.

(82) ды и чо? Ты в каком регистре хочешь записи увидеть?

(85) угу. розница вторая, раз УФ

В общем. Что с загрузкой справочника номенклатура накосячил. Мои загружены элементы в справочник номенклатуры не делают записей если их даже в ручном режиме выбрать в доке установка цен. Если руками товар вбить, то делает.

(86) Цены номенклатуры.

ничо не знаю
http://i.imgur.com/QGJ31Yy.png

(90) Не к доку претензий нет, видать я при загрузки в справочник номенклатуры что-то неправильное делаю.
Руками вбитые нормально работают, мной загруженные, типа автоматом, не работают.

(91) объект что ль пишешь вместо ссылки?

(92) Нет. Что-то не заполняю в справочнике номенклатуры. Щас по реквизиту пробую добавлять. Если зайти и выйти с сохранением из карточки товара, то усе пучком.

(93) ну вот это бред, согласись: СокрЛП(10000)  ??? это будет "10 000". Используй функцию Формат.

(94) а не Строка()?

(94) Спасибо. Будем учится.
Я перечисление правильно присваиваю? А то не заполняет
ТекТовар.ТипНоменклатуры = Перечисления.ТипыНоменклатуры.Товар;

(96) дай уже обработку поиграться, а то мы так и до (200) дотянем

(97) На, я не жадный
[url=http://webfile.ru/2d635d41a6b40fbebf81d42fe290e993]СкачатьЗагрузкаИзДБФ.epf[/url]

(98) а я ленивый. как выглядит правильная ссылка?

(100) ну вы даете

тзШтрихкод = Новый ТаблицаЗначений;
    Для каждого Товар из тзТовар Цикл

ничо так

(99)http://webfile.ru/2d635d41a6b40fbebf81d42fe290e993

Я вроде победил. Цены появились в регистре, но нет в чеке ККМ.

(101) тьфу, имена переменных попутал ;)