Не устанавливается цена номенклатуры

[Doomych]

1С:Предприятие 8.3 (типовая конфигурация; Бухгалтерия предприятия, редакция 3.0)

Подключаюсь к 1С из Delphi через OLE Automation. Выполняю следующий код:

Код Выделить Развернуть

FOleNomenklaturaGroup := Ole1C.Справочники.Номенклатура; nomenklaturaGroup := FOleNomenklaturaGroup.НайтиПоКоду('00-00000130'); nomenklatura := FOleNomenklaturaGroup.СоздатьЭлемент(); nomenklatura.Родитель := nomenklaturaGroup; nomenklatura.Наименование := 'Курьерские услуги по Акту 27 от 30.09.2014'; nomenklatura.НаименованиеПолное := 'Курьерские услуги по Акту 27 от 30.09.2014'; nomenklatura.Услуга := true; nomenklatura.ЕдиницаИзмерения :=   Ole1C.Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию('усл.'); nomenklatura.СтавкаНДС := Ole1C.Перечисления.СтавкиНДС.НДС18 nomenklatura.НоменклатурнаяГруппа :=   Ole1C.Справочники.НоменклатурныеГруппы.НайтиПоНаименованию('Курьерские услуги'); nomenklatura.Записать(); // все ОК // Устанавливаем цену price := Ole1C.Документы.УстановкаЦенНоменклатуры.СоздатьДокумент(); price.Дата := '20141225'; price.ТипЦен := FOleNomenklaturaPricesTypes.НайтиПоНаименованию(сОсновнаяЦенаПродажи); // Следующий кусок кода работает без ошибок, но данные не появляются product := price.Товары.Добавить(); product.Номенклатура := nomenklaturaGroup; product.Валюта := Ole1C.Справочники.Валюты.НайтиПоНаименованию('руб.'); product.Цена := 123.45; price.Записать(Ole1C.РежимЗаписиДокумента.Проведение);

Мне надо, чтобы в [Справочнике "Номенклатура"]->[Услуги]->[Заходим в услугу]->[Цены], в типе цен "Основная цена продажи" ячейка "Цена" была бы заполнена. Она же у меня пуста. Но, если зайти в созданный документ (в моем случае, это "Установка цен номенклатуры 00-00000012 от 25.12.2014 0:00:00") типа цен "Основная цена продажи", то там цена есть.


Что я делаю не так?

[cska-fanat-kz]

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

[Andrewow]

Здравствуйте!
Актуальная проблема тоже, есть необходимость отображать цену/стоимость в номенклатуре.
Буду благодарен если будет какое то решение в виде обработки... Через печатную форму у меня не получилось реализовать отображение цены.

[cska-fanat-kz]

Здравствуйте!
Актуальная проблема тоже, есть необходимость отображать цену/стоимость в номенклатуре.
Буду благодарен если будет какое то решение в виде обработки... Через печатную форму у меня не получилось реализовать отображение цены.

Конфигурация?
В УТ в справочнике Номенклатура есть "стандартная" вкладка Цены номенклатуры, где отображаются последние данные из регистра.
По стоимости - отдельная история. Да оно и не нужно в справочнике...

[Andrewow]

Здравствуйте!
Актуальная проблема тоже, есть необходимость отображать цену/стоимость в номенклатуре.
Буду благодарен если будет какое то решение в виде обработки... Через печатную форму у меня не получилось реализовать отображение цены.

Конфигурация?
В УТ в справочнике Номенклатура есть "стандартная" вкладка Цены номенклатуры, где отображаются последние данные из регистра.
По стоимости - отдельная история. Да оно и не нужно в справочнике...

1С:Предприятие 8.3 (8.3.5.1248)
Бухгалтерия предприятия, редакция 3.0 (3.0.36.19)
Там есть тип цен номенклатуры который не заполнен, зато есть справочник номенклатуры в которой есть материалы с ценами я так понимаю печатная форма должна из справочника этого брать цены и стоимость считать.

В комплектации номенклатуры добавил поле сумма, внутри номенклатуры указываю сумму вручную(почему то там не просто сумма, а сумма списания)
после этого в поле сумма стало отображаться вот так "Комплектация номенклатуры 0000-000002 от 19.02.2014 16:00:59"

В текущей печатной форме вот так выглядит сейчас, второй скрин того что нужно.

[Doomych]

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

Хорошо. Делаю так:

Код Выделить Развернуть

    oleRdNomenklaturaPrices := Ole1C.РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();     oleRdNomenklaturaPrices.Отбор.Регистратор.Установить(price); // [1]     oleRdNomenklaturaPrices.Цена := 200.03; // [2]     oleRdNomenklaturaPrices.Записать();
В строке [1] price - это Документы.УстановкаЦенНоменклатуры.СоздатьДокумент(). Не знаю, нужна ли эта строка?
На строке [2] падаю с ошибкой "Method 'Цена' not supported by automation object". При этом в регистре сведений "ЦеныНоменклатуры" ресурс "Цена" имеется. И вообще, в том ли направлении я двигаюсь?

Добавлено: 26 дек 2014, 15:17

Ладно, с предыдущим своим вопросом разобрался. Надо было делать как-то так:

Код Выделить Развернуть

oleRdNomenklaturaPrices := Ole1C.РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей(); oleRdNomenklaturaPrices.Отбор.Регистратор.Установить(price); oleRdNomenklaturaPrices.Прочитать(); sss2 := oleRdNomenklaturaPrices.Добавить(); sss2.Цена := 200.15; oleRdNomenklaturaPrices.Записать();
Падаю на "Записать" с сообщением "Ошибка записи! Не установлен отбор по регистратору (Регистр сведений: Цены номенклатуры)". Как надо делать?

Добавлено: 26 дек 2014, 16:44

Сам разобрался. Вот код (на разнобой в ценах и датах не обращайте внимание):

Код Выделить Развернуть

    oleRdNomenklaturaPrices := Ole1C.РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();     oleRdNomenklaturaPrices.Отбор.Регистратор.Установить(price.Ссылка);     oleRdNomenklaturaPrices.Прочитать();     sss2 := oleRdNomenklaturaPrices.Добавить();     sss2.Цена := 200.15;     sss2.Номенклатура := nomenklatura.Ссылка;     sss2.Валюта := Ole1C.Справочники.Валюты.НайтиПоНаименованию(cCurrencyRouble);     sss2.ТипЦен := FOleNomenklaturaPricesTypes.НайтиПоНаименованию(сОсновнаяЦенаПродажи);     sss2.Период := '20141215';     oleRdNomenklaturaPrices.Записать();

[Andrewow]

up. ищу доработку эту, не ужели ни у кого нету?