Всем привет, как сделать отбор по регистру сведений, где есть измерение "Цена" которое ссылается на перечисление цены. Я это пробую сделать в форме приходной накладной при выборе номенклатуры.
[CODE]Процедура ПриходТаблицаТМЦПриИзменении(Элемент)
   ТекСтрока = Элементы.ПриходТаблица.ТекущиеДанные;
   ТекСтрока.Цена = ПриходнаяЦена(Объект.Дата, ТекСтрока.ТМЦ);
КонецПроцедуры
[/CODE]
а вот функция которая должна получать значение цены
[CODE]Функция ПриходнаяЦена(ТекТМЦ, ТекДата)
   Отбор = Новый Структура("ТМЦ", ТекТМЦ);
   ЗначениеЦены = РегистрыСведений.Цены.ПолучитьПоследнее(ТекДата, Отбор);
   Возврат ЗначениеЦены.Цена;
КонецФункции[/CODE]
вот как здесь можно отсортировать по значению из перечисления Цены, приходные

тип цены - перечисление? не очень приятно. в отбор засунь, зачем сортировать

да да, а можно показать этот отбор на примере кода? пожалуйста

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

она заносится в регистр сведений, там три измерения

(2) да вы тут сговорились?
Пример:

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

(4) три измерения. одно - номенклатура, понятно. какая из нескольких цен тебя интересуют?

так?
Функция ПриходнаяЦена(ТекТМЦ, ТекДата)
   Отбор = Новый Структура("ТМЦ", ТекТМЦ);
   Отбор.Вставить("ВидЦены", Перечисления.ВидЦены.Приходная);
   ЗначениеЦены = РегистрыСведений.Цены.ПолучитьПоследнее(ТекДата, Отбор);
   Возврат ЗначениеЦены.Цена;
КонецФункции
теперь ошибку выдает: Значение не является значением объектного типа (Цена)

(7) нуда. Номенклатура, ТипЦены. третье измерение какое? и какая одна из нескольких цен тебя интересует?

нет, измерения у регистра два, ТМЦ и Цены, Цены - это перечисление, мне нужно сделать отбор где значение в перечисление "Приходная". Прошу прощения, я полный нубик в 1с, тяжело мысли выразить. посмотри скрин пожалуйста http://s019.radikal.ru/i643/1211/11/49e4b8c2074b.jpg

а чем запрос то не устраивает?

Новый Структура("ТМЦ, ВидЦены", ТекТМЦ, Перечисление.ЧтоТам?);

если так написать ?

Отбор = Новый Структура;
Отбор.Вставить("ТМЦ", ТекТМЦ);
Отбор.Вставить("ВидЦены", Перечисления.ВидЦены.Приходная);

(10) они их боятся. у меня второй день репетиторства идёт, ответственно заявляю
"ВЫБРАТЬ
и ещё куча букв";
в них вселяет панику

(12) ну или так

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

ошибка как будто ЗначениеЦены не структура

спасибо, но ошибка не исчезла
{Документ.ПриходнаяНакладная.Форма.ФормаДокумента.Форма(23)}: Значение не является значением объектного типа (Цена)
&НаКлиенте
Процедура ПриходТаблицаТМЦПриИзменении(Элемент)
   ТекСтрока = Элементы.ПриходТаблица.ТекущиеДанные;
   ТекСтрока.Цена = ПриходнаяЦена(Объект.Дата, ТекСтрока.ТМЦ);
КонецПроцедуры

Функция ПриходнаяЦена(ТекТМЦ, ТекДата)
   Отбор = Новый Структура("ТМЦ, ВидЦены", ТекТМЦ, Перечисления.ВидЦены.Приходная);
   ЗначениеЦены = РегистрыСведений.Цены.ПолучитьПоследнее(ТекДата, Отбор);
   Возврат ЗначениеЦены.Цена;
КонецФункции

а цена-то есть?

&НаСервере
Функция ПриходнаяЦена(ТекТМЦ, ТекДата)
   Отбор = Новый Структура("ТМЦ, ВидЦены", ТекТМЦ, Перечисления.ВидЦены.Приходная);
   ЗначениеЦены = РегистрыСведений.Цены.ПолучитьПоследнее(ТекДата, Отбор);
   Возврат ЗначениеЦены.Цена;
КонецФункции

&НаСервере
Функция ПриходнаяЦена(ТекТМЦ, ТекДата)
   Отбор = Новый Структура;
   Отбор.Вставить("ТМЦ", ТекТМЦ);
   Отбор.Вставить("ВидЦены", Перечисления.ВидЦены.Приходная);
   ЗначениеЦены = РегистрыСведений.Цены.ПолучитьПоследнее(ТекДата, Отбор);
   Возврат ЗначениеЦены.Цена;
КонецФункции

да, я их сразу занес в регистр
вот картинка http://s019.radikal.ru/i600/1211/62/d84a220de708.jpg
(не смотри плиз на наименования тмц, это пример только)

(18) &НаСервере - это по умолчанию. но лучше ставить, конечно

(20) не вижу

+(22) вижу, что даты не вижу, остальное не вижу

наверно это из-за дат, сейчас исправлю

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

(23) получитьПоследнее и для непериодчиского же действует

(26) СП против

поставил периодичность в пределах секунды, сделал новые записи в регистр. теперь такая ошибка
{Документ.ПриходнаяНакладная.Форма.ФормаДокумента.Форма(24)}: Ошибка при вызове метода контекста (ПолучитьПоследнее)
   ЗначениеЦены = РегистрыСведений.Цены.ПолучитьПоследнее(ТекДата, Отбор);
по причине:
Несоответствие типов (Параметр номер ""1"")
Несоответствие типов (Параметр номер ""1"")

(28) сказать тебе, что ТекДата - это не дата или сам догадаешься?

+(29) точно, она у тебя ТМЦ

(27) действительно

забыл

так это же только аргумент по назначению?
Процедура ПриходТаблицаТМЦПриИзменении(Элемент)
   ТекСтрока = Элементы.ПриходТаблица.ТекущиеДанные;
   ТекСтрока.Цена = ПриходнаяЦена(Объект.Дата, ТекСтрока.ТМЦ);
КонецПроцедуры

(33) ну. внутри своей функции ТекТМЦ у тебя - это дата, а ТекДата - это ТекСтрока.ТМЦ

спасибо,поменял местами. просто не думал что тут параметры только по ссылку можно передавать (это я про 1с)

(35) я вот сейчас ничего не понял кроме спасибо. ты не мог бы уже сразу сказать, что всё заработало, всем большое спасибо?

+(36) и ответить на сакральный вопрос

спасибо большое всем, работает. что за вопрос?

(38) -> (3)(14)

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

(40) цены определяются поступлением. по сколько дали, столько и цена. и действовать тут надо наоборот как раз - при проведении поступления менять регистр про цены. ну это по моей скромной логике вещей

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

завтра уточню этот момент, спасибо за советы.

(42) нет ну если постоянный поставщик, он прайсы пересылает заранее в экселе, почему нет?

(44) а ни о чём таком автор не говорил. почему бы и нет, конечно

>сначала вносятся цены
ладно, убедил. необязательно руками вносятся ;)

а как можно получить значение реквизита документа? метод ТекущиеДанные не работает

(47) какого и зачем*?

и где? ТекущиеДанные - это для таблицы на форме. телпатирую: Объект.Реквизит

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

(50) Объект.ТипЦен или как там у тебя

то что нужно, спасибо.

а ну-ка вопрос на засыпку. скажи, зачем нужен реквизит Цена в ТЧ документа? цены ж и без этого в регистре есть

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

и что делать, если я завтра новый тип цен захочу, и насколько это будет удобно

(54) изменишь в документе руками. что от этого изменится, кроме самого документа?

а сумму в ТЧ менять можно? цена пересчитывается?

я так глубоко не вникал в такие вопросы, я еще учусь.

(58) а я тебя учу. делай так, чтоб твоя поделка не рухнула от любых допустимых действий

я с тобой согласен. но мне нужно сделать т.к. дали в задании, это на вакансию джуниора типа)

(60) дык делай. при изменении количества сумму считаешь - это из задания? а про цену ничего не сказано? додумай

(61) *про сумму

дойдёшь до реализации - скажи, фокус покажу ;)

а цена должно меняться, если изменено значение Виды цен ( это реквизит расходной накладно, перечисление которое) и нужно еще меня когда выбирается контрагент. и вот тут еще один вопрос, в  справочники контрагентов есть реквизит Вид цены (все то же, многострадальное перечисление) вот как получить этот атрибут при выборе в реквизитах расходной накладной?
ТекЦена = Объект.Контрагент. -  и здесь тип цены которое у него в реквизите указано

оффтоп. а как тут форматировать код?

>справочники контрагентов есть реквизит Вид цены
представь себе контрагента, который продаёт нам и покупает у нас.
кривое проектирование налицо
вопрос не понял. Объект.Контрагент.ТипЦены - не оно?

{1С}тут код{/1С} - только с квадратными скобками

насчет проектирования согласен, но это же только учебный пример.
ТекЦена = Объект.Контрагент.ВидЦены;
ошибка : Поле объекта не обнаружено (ВидЦены)
но этот реквизит есть у справочника и заполнен.

(67) нету этого реквизита
ты же видишь, как я ломаю твою учебную поделку. будет лучше, если её будет ломать кто-то другой и в более официальной обстановке?

мне тяжело дать однозначный ответ =) но я склоняюсь к тому что следует выполнять задания строго по ТЗ.

(69) слушай, а покажи. я падавана нагружу

завтра фотик -сфоткаю, а то на теле камера плохая.
посмотри пожалуйста на реквизит http://s57.radikal.ru/i156/1211/5a/a4aa4c0fcc66.jpg

завтра заберу фотик*
а как тут свои сообщения редактировать?

(71) ты продолжаешь издеваться мелким разрешением?

(72) никак

контрагент у тебя не контрагент

почему? ссылка на справочник контрагенты есть.

(76) Объект.Контрагент какого типа?

вот такого СправочникСсылка.Контрагенты

(78) тогда где-то врёшь. покажи по аналогии с этим: справочники контрагентов есть реквизит Вид цены

тфу, с этим: http://screencast.com/t/FQZ59bLle2Qv

http://s017.radikal.ru/i412/1211/38/540cd110afb6.jpg ссори за разрешение.

а, нуда. за этим придётся на сервер сходить

спасибо заработало, а как ты определил?

(83) посмотрел внимательными глазами. я вообще мелкое разрешение не разглядывал

ошибки нет, но и не выводит нечего
&НаСервере
Процедура КонтрагентПриИзменении(Элемент)
   ТекЦена = Объект.Контрагент.ВидЦены;
   Сообщить(ТекЦена);
КонецПроцедуры

(85) Сообщить("От такой вот вид цены: "+Объект.Контрагент.ВидЦены);

все равно не какого сообщения нет

сообщения не выводятся только в этой процедуре
&НаСервере
Процедура КонтрагентПриИзменении(Элемент)
   ТекЦена = Объект.Контрагент.ВидЦены;
   Сообщить(ТекЦена + "sss");
   Сообщить("От такой вот вид цены: "+Объект.Контрагент.ВидЦены);
   Сообщить("От такой вот вид цены: ");
КонецПроцедуры

хм, даже на клиенте
&НаКлиенте
Процедура КонтрагентПриИзменении(Элемент)
   Сообщить("От такой вот вид цены: "+Объект.Контрагент.ВидЦены);
КонецПроцедуры

http://screencast.com/t/c2RE27OZfwj

http://screencast.com/t/c2RE27OZfwj

это значит что у меня....?

(91) не оттуда растут руки ;)
платформа какая?

8.2

(93) это я понял

у меня 1С:Предприятие 8.2 (8.2.16.352)

плин, а я не верил, что сотню сделаем

а из-за чего это процедура может не работать?

это ппц какой то, для аналогично реквизита склад все работает(

(97) фантазировать не хочу, мож, в платформе что-то испортилось

(98) конфигурацию обновил?

да, вообщем все нормально пока не дописываю метод .ВидЦены
если на клиенте, то поле объекта не обноружено
если на сервере, вообще не каких действий, как будет процедура не отрабатывается.

(101) это не метод, а свойство, если уж ты начал пользоваться терминологией ООП. наружено, никаких.
ф7 нажимал перед тем, как проверять?

неа, а что это должно дать?

Синтаксических ошибок не обнаружено!

что то вообще не могу получить доступ к реквизитам справочников в РН, уже и по дописывал обычные строки для проверки, все равно поле объекта не обнаружено.

(105) Потому что за реквизитами надо на сервер ходить. На клиенте есть только ссылка. Примерно так:

&НаКлиенте
Процедура КонтрагентПриИзменении(Элемент)
   ТекЦена = ПолучитьВидЦеныКонтрагента(Объект.Контрагент);
   Сообщить(ТекЦена);
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПолучитьВидЦеныКонтрагента(Контрагент)
   Возврат Контрагент.ВидЦены;
КонецФункции


(106) сможешь объяснить (89)?

(107) Та же проблема, ты на клиенте хочешь получить значение реквизита от ссылки "Объект.Контрагент.ВидЦены".

(108) я тебе больше скажу: я его получаю

спасибо  большое, такой вариант работает.

у меня еще вопрос, как обновить колонку Сумма для всех строк при изменении контрагента или вида цены?
Процедура КонтрагентПриИзменении(Элемент)
   ТекЦена = ПолучитьВидЦеныКонтрагента(Объект.Контрагент);
   ТекСтрока = Элементы.РасходТаблица.ТекущиеДанные;
   ТекСтрока.Цена = ВидЦеныИзменение(Объект.Дата, ТекСтрока.ТМЦ, ТекЦена);
   ТекСтрока.Сумма = ТекСтрока.Количество * ТекСтрока.Цена;
КонецПроцедуры
так обновляется только та что в фокусе.

(111) а ты пройдись по всем строкам. только не элемента формы, а ТЧ объекта

и, наверное, было бы хорошим тоном спросить у юзера, нужно ли ему это. вопрос в помощь

а я уже спрашивал, на кой хрен цена в ТЧ нужна, когда все цены живут в регистре?

спасибо, получилось