Моя первая задача в 1С, поэтому решаю как могу :)
Платформа 8.2
Суть вопроса в следующем:
Нужно вычислить среднюю по остаткам.
В расходную накладную нужно вписать среднюю по остаткам цену
склад один, на нулевость пока не проверяю.
Есть регистр накопления ОстаткиТоваров
Создал Общий модуль с галочкой - сервер:
Код:
---------------------------------------------------------------------
Функция ТекущиеОстатки(Товар) Экспорт
   /// Вот тут запрашиваем данные из регистра остатков
   /// по данному товару
       ЗапросОстатков = Новый Запрос();
       ЗапросОстатков.Текст = "ВЫБРАТЬ
           |    Остатки.Количество, Остатки.Стоимость
           |ИЗ
           |   РегистрНакопления.ОстаткиТоваров КАК Остатки
           |Где
           |    Остатки.Товар = &Товар" ;
       ЗапросОстатков.УстановитьПараметр("Товар", Товар);
       Результат = ЗапросОстатков.Выполнить();
       Сообщить("Отработала ф-я ТекущиеОстатки(Товар)");
       Возврат Результат;
КонецФункции
---------------------------------------------------------------------
КонецКода





Есть общий модуль АвтоРасчетТаблиц с галкой клиент:
Код:
----------------------------------------------------------------------------------------------
функция СредняяЦена(Товар) экспорт
   Сообщить(Товар);
   попытка
       // Вызываем функцию из общего модуля с параметром Товар
       // Функция вернет Результат запроса
       ТекущиеОстатки = ПолучитьИзРегистра.ТекущиеОстатки(Товар);
       //Сообщить(ТекущиеОстатки);
       Выборка = ТекущиеОстатки.Выбрать();
       //Сообщить("получена выборка");
           если Выборка.Следующий()
           тогда
           если Выборка.Получить(0) > 0 тогда // Проверяем, количество > 0
               //стоимость делим на цену
               Сообщить(Выборка.Получить(0));
               Сообщить(Выборка.Получить(1));
               возврат Выборка.Получить(1) / Выборка.Получить(0);
           иначе Сообщить(" "+Товар+" отсутствует на складе");    
           конецЕсли;
       конецЕсли;    

   конецПопытки    
КонецФункции
----------------------------------------------------------------------------------
КонецКода


Есть модуль формы РасходнаяНакладная
Код:
----------------------------------------------------------------------------------
&НаКлиенте
Процедура МатериалыТоварПриИзменении(Элемент)
   ТекущаяСтрока = Элементы.Материалы.ТекущиеДанные;
   //ТекущаяСтрока.Цена = АвтоРасчетТаблиц.СредняяЦена(ТекущаяСтрока.Товар);
   Сообщить(АвтоРасчетТаблиц.СредняяЦена(ТекущаяСтрока.Товар));
   
   //Сообщить("Цене присвоено значение = " + ТекущаяСтрока.Цена);
КонецПроцедуры
----------------------------------------------------------------------------------
КонецКода

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

Выборка.Получить(0) - вобще не кошерно так перебирать

Выборка.Получить(1) / Выборка.Получить(0);

это вобще чудо формула.
Переделывай всё номрально

(2) Он делит стоимость на количество так. Запись ужасна, разумеется, но ошибка не в этом

Сообщить(Выборка.Получить(0));
Сообщить(Выборка.Получить(1));
что тут сообщает?

(1) за то смотри какие кошерные прибамбасы
Код:
----------------------------------------------------------------------------------
----------------------------------------------------------------------------------
КонецКода

(5) да, это меняет всю ситуацию)

(4) туда вообще не доходит
при отладке останавливается на строке

Выборка = ТекущиеОстатки.Выбрать();
в модуле
функция СредняяЦена(Товар) экспорт
и снова выбрасывает в форму РасходнойНакладной

(2) Рад бы, а как нормально?

если Выборка.Следующий()
           тогда
Сообщить(Выборка.Количество)
Сообщить(ВыборкаСтоимость)
Иначе
Сообщить("по нулям всё")
КонецЕсли

расскажите - что такое средняя по остаткам цена?

(9) отгадай)

(10) не хочу гадать, хочу знать )))

(9)
Принимаем один и тот же товар:
1. Приходная накладная  10 шт по 10 рублей
2. Приходная накладная  20 шт по 15 рублей

Списываем:
Средняя по остаткам (10шт*10р + 20шт*15р)/ (10шт+20шт) = 13,33р

(8) В ТекущихОстатках значение
неопределено
Сообщить("Отработала ф-я ТекущиеОстатки(Товар)");
и вот этого сообщения не приходит

(13) это сообщить у тебя на сервере выполняется, кому сообщать то?

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

Процедура ОбработкаПроведения(Отказ, Режим)
   //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
   // Данный фрагмент построен конструктором.
   // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

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

   //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
   // регистр ОстаткиНаПериод
   // Сюда заносим текущие остатки, чтобы можно было получить
   // Количество товаров и их стоимость за любой период
   Движения.ОстаткиНаПериод.Записывать = Истина;
   
   Для Каждого ТекСтрокаМатериалы Из Материалы Цикл
       Движение = Движения.ОстаткиНаПериод.Добавить();
       Движение.Период = Дата;
       Движение.Товар = ТекСтрокаМатериалы.Товар;
       Движение.Склад = Склад;
       // Вызываем функцию из общего модуля с параметром Товар
       // Функция вернет Результат запроса
       ТекущиеОстатки = ПолучитьИзРегистра.ТекущиеОстатки(ТекСтрокаМатериалы.Товар);
       // Сохраняем полученный рузультат в регистре сведений
       Выборка = ТекущиеОстатки.Выбрать();
       Если Выборка.Следующий() <> Неопределено тогда
           Сообщить("Занесено в регистр -" + Выборка.Получить(0));
           Движение.Количество = Выборка.Получить(0); //Количество товара в остатках
           Движение.Стоимость = Выборка.Получить(1);  //Его стоимость
         КонецЕсли;
       
   КонецЦикла;
   
КонецПроцедуры


Процедура проведения работает и сообщает и заносит

Процедура проведения (16) работает и сообщает и заносит,
а вот процедура расчет средней цены что-то тупит.

Вернее я что-то туплю

(16) разберись что где выполняется Сервер/Клиент, поймёш сразу

Если правильно понял, то мне для СредняяЦена нужно директиву &НаСервере поставить? Ща попробую

{Документ.РасходнаяНакладная.Форма.ФормаДокумента.Форма(21)}: Метод объекта не обнаружен (СредняяЦена)
   Сообщить(АвтоРасчетТаблиц.СредняяЦена(ТекущаяСтрока.Товар));

Ура! Заработало.
(19) Спасибо, именно это и помогло. Не вижу кармы - плюсануть бы...
Вообщем функцию СредняяЦена загнал в модуль ПолучитьИзРегистра
Аминь.

А в запросе не устраивает среднюю получить?

(23) Мне из него потом еще максимальное количество выковыривать

(24) одно другому не мешает

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

|    Остатки.Количество, Остатки.Стоимость
           |ИЗ
           |   РегистрНакопления.ОстаткиТоваров КАК Остатки
           |Где
           |    Остатки.Товар = &Товар" ;
че за чудо??
тебе ведь нужны остатки?? то использую таблица остатков "РегистрНакопления.ОстаткиТоваров.Остатки(, Товар = &Товар)"

Так должно быть?
ЗапросОстатков = Новый Запрос();
       ЗапросОстатков.Текст = "ВЫБРАТЬ
           |    Остатки.Количество, Остатки.Стоимость
           |ИЗ
           |   РегистрНакопления.ОстаткиТоваров КАК Остатки
           |Где
           |    РегистрНакопления.ОстаткиТоваров.Остатки(, Товар = &Товар)" ;
       ЗапросОстатков.УстановитьПараметр("Товар", Товар);
       Результат = ЗапросОстатков.Выполнить();
       Сообщить("Отработала ф-я ТекущиеОстатки(Товар)");
       Возврат Результат;

(28) нет вместо "РегистрНакопления.ОстаткиТоваров" используй РегистрНакопления.ОстаткиТоваров.Остатки(, Товар = &Товар)

И что у тебя такое Стоимость?? это сумма или это цена?? если цена то скорее всего налажал в регистре и там должна быть сумма остатков, а стоимость уже вычесляешь сумма / количество, только еще количество проверь на 0

конструктором запроса пользуйся

В стоимости сумма записывается

Выбрасывает исключение


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

(30) не нашел :(

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

опиши поля регистра, посмотри когда документ производит запись в регистр какие поля заполняет, вот исходя из этого потом формируй запрос

(31) был ответом на (28)

Вернее (31) был ответом на (29)

(36) вообще-то поля там

        |    Остатки.КоличествоОстаток, Остатки.СтоимостьОстаток


может, забить на эту 1С? Тем более пятница.

(37)думаю он смотрит в документе, там может это сумма, а в регистре стоимость )))

(35) и (36) смотри (38)

(37) Спасибо, это помогло справиться с исключением (запрос исправил)
еще вот это помогло :)
v8: выбрать остатки товара на складе
Теперь на выходе не РезультатЗапроса, а ТаблицаЗначений - 2 функции переделывать, т.к. Выборка здесь не катит...

Ничего не понимаю
На выходе получаю результат запроса.
А выбрать() дает исключение.

В КоличествоОстаток и СтоимостьОстаток пишеть ошибка чтения значения