Сохранение цен

[edmynt]

Добрый вечер. Ни где не смог найти соответствующие статьи. Есть два документа приход товара, и соответственно возврат. Как лучше реализовать хранение истории цен и автозаполнение последней актуальной ценой? Начал делать, создав регистр сведений, но зашел в тупик, так как автозаполнение из регистров отсутствует. Есть мысль, что последнюю цену записывать в справочник, но есть сомнения, например при перепроведении тогда может быть не актуальная цена.  1с 8.3

[vitasw]

Начал делать, создав регистр сведений

Правильной дорогой идете товарищи.

так как автозаполнение из регистров отсутствует

А что это за зверь такой? типа нажал на кнопочку и оно само куда-то подставилось?

[edmynt]

так как автозаполнение из регистров отсутствует

А что это за зверь такой? типа нажал на кнопочку и оно само куда-то подставилось?
[/quote]

Ну всмысле ввод на основании

[vitasw]

Ну и что что ввод на основании? вод на основании в любом случае прописывать надо.
Запрос - решение всех проблем.

[edmynt]

Ну и что что ввод на основании? вод на основании в любом случае прописывать надо.
Запрос - решение всех проблем.

Уже иду в этом направлении:

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


&НаСервере
Процедура ТабличнаяЧасть1НаименованиеПриИзмененииНаСервере()
"ВЫБРАТЬ
| ЦеныОпт.Номенклатура,
| ЦеныОпт.Цена
|ИЗ
| РегистрСведений.ЦеныОпт КАК ЦеныОпт"
КонецПроцедуры



Вот что то получилось...только он скорее всего все записи выберет. А как сделать последнюю актуальную по дате регистратора? В конструкторе есть выбор первой записи, а последней нет

[vitasw]

Регистр должен быть периодическим + использовать виртуальную таблицу среза последних

[edmynt]

Регистр должен быть периодическим + использовать виртуальную таблицу среза последних

Вот что получилось:

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


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

Запрос.УстановитьПараметр("Номенклатура", Номенклатура);

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
// Вставить обработку выборки ВыборкаДетальныеЗаписи
КонецЦикла;

//}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА



И ошибка при компиляции : {Документ.ПриходТовара.Форма.ФормаДокумента.Форма(48,44)}: Переменная не определена (Номенклатура)
   Запрос.УстановитьПараметр("Номенклатура", <<?>>Номенклатура); (Проверка: Сервер)

Добавлено: 24 июл 2015, 19:01

Разобрался,
вот код.работает :

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


&НаКлиенте
Процедура ТабличнаяЧасть1НаименованиеПриИзменении(Элемент)
Цена = 0;
СтрокаТЧ=Элементы.ТабличнаяЧасть1.ТекущиеДанные;
Номенклатура = СтрокаТЧ.Номенклатура;
ТабличнаяЧасть1НаименованиеПриИзмененииНаСервере(Номенклатура, Цена);
СтрокаТЧ.Цена = Цена;


КонецПроцедуры

&НаСервере
Процедура ТабличнаяЧасть1НаименованиеПриИзмененииНаСервере(Номенклатура, Цена)
//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!


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

Запрос.УстановитьПараметр("Номенклатура",Номенклатура);

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
// Вставить обработку выборки ВыборкаДетальныеЗаписи
Цена=ВыборкаДетальныеЗаписи.Цена;
КонецЦикла;

//}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА


КонецПроцедуры



Добавлено: 24 июл 2015, 19:01

Большое спасибо