Средняя продажа. 1с 77, Торговля и Склад, Оптово-розничная конфигурация 7.70.941

Придёца.

Ты уже 2 дня сидишь на форуме и все ждешь халявы, не надоело?

Ты ничего не путаешь?
C 18.01.2011 22:56 по sysdate не прошло еще и суток.
p.s. Да и не халявы я жду. А попросил помощи. Сам не знаю зачем....

если так - то хрень


но вопрос в другом : средняя продажа - оборот, а в подборе нужен остаток

В подборе нужен расход по товару, сколько всего было израсходовано.

> В подборе нужен расход по товару, сколько всего было израсходовано.
>

зачем ?

подбор изначально предполагался :
1. "запихнуть" в тч дока несколько доков
2. проверить, если они в наличие

+ а расход за какой период ?

За какой период - с начала текущего года.
Зачем - чтобы видеть статистику расходования товара.

хорошо, сделал ты такой подбор

пытаешь отгрузить товар, а его нет в наличии, что тогда ?

Они скорее всего хотят сначала продавать товар который чаще расходится или наоборот! Вот для этого и нужен средний расход.

"Для отслеживания наличия товара на складе на форму добавлена информационная строка, показывающая остаток и цену для данного товара.
Вот эта функция:

Функция ИнформационнаяСтрокаПоНоменклатуре()
Перем ТовОстаток, ТовОстатокПоФирме, ТовЕдиница, ТовЦена, ТовВалюта;
ИнформационнаяСтрока = """";
ТекНоменклатура = ТекущийЭлемент();    
Если (ТекНоменклатура.ЭтоГруппа() = 0)
  и (ПоказатьОстаткиЦену = 0)  Тогда        

Если ЦенаВподборе = "Розница" Тогда
Если (ТекНоменклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга)
или (ТекНоменклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда

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

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

глПолучитьОстаткиНоменклатуры(ФирмаДляОстатковТМЦ, ТекНоменклатура, ЕдиницаТекНоменклатуры, ОстаткиТМЦ, ТовОстаток, ТовОстатокПоФирме, Склад, Резервы, 1);

ИнформационнаяСтрока = СформироватьИнфНадпись(ТовОстаток, ТовОстатокПоФирме, ЕдиницаТекНоменклатуры , ТовЦена, ТовВалюта);
КонецЕсли;

Иначе
ИнформационнаяСтрока = СокрЛП(ТекНоменклатура.Наименование);
КонецЕсли;

Если (ТекНоменклатура.ЭтоГруппа() = 0)
  и (ТипЗначения(ФормаТаблицыОстатков) = 100) Тогда

// если открыта форма с таблицей остатков, то обновим в ней текущий элемент
ФормаТаблицыОстатков.Форма.Обновить(0);
   
КонецЕсли;

Возврат ИнформационнаяСтрока;

КонецФункции // ИнформационнаяСтрокаПоНоменклатуре()"