Придёца.
Придёца.
Ты уже 2 дня сидишь на форуме и все ждешь халявы, не надоело?
Ты ничего не путаешь?<br>C 18.01.2011 22:56 по sysdate не прошло еще и суток.<br>p.s. Да и не халявы я жду. А попросил помощи. Сам не знаю зачем....
если так - то хрень<br><br><br>но вопрос в другом : средняя продажа - оборот, а в подборе нужен остаток
В подборе нужен расход по товару, сколько всего было израсходовано.<br>
> В подборе нужен расход по товару, сколько всего было израсходовано.<br>> <br><br>зачем ?<br><br>подбор изначально предполагался :<br>1. "запихнуть" в тч дока несколько доков<br>2. проверить, если они в наличие<br><br>+ а расход за какой период ?
За какой период - с начала текущего года.<br>Зачем - чтобы видеть статистику расходования товара.
хорошо, сделал ты такой подбор<br><br>пытаешь отгрузить товар, а его нет в наличии, что тогда ?
Они скорее всего хотят сначала продавать товар который чаще расходится или наоборот! Вот для этого и нужен средний расход.
"Для отслеживания наличия товара на складе на форму добавлена информационная строка, показывающая остаток и цену для данного товара.<br>Вот эта функция:<br><br>Функция ИнформационнаяСтрокаПоНоменклатуре()<br> Перем ТовОстаток, ТовОстатокПоФирме, ТовЕдиница, ТовЦена, ТовВалюта;<br> ИнформационнаяСтрока = """";<br> ТекНоменклатура = ТекущийЭлемент(); <br> Если (ТекНоменклатура.ЭтоГруппа() = 0)<br> и (ПоказатьОстаткиЦену = 0) Тогда <br> <br> Если ЦенаВподборе = "Розница" Тогда<br> Если (ТекНоменклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга)<br> или (ТекНоменклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда<br> <br> // Для услуг и работ розничную цену берем из справочника <br> глВернутьЦену(ТекНоменклатура, Константа.РозничныйТипЦен, ПолучитьДатуЦен(), ТовЦена, ТовЕдиница, ТовВалюта);<br> ТовОстаток = """";<br> ИнформационнаяСтрока = СформироватьИнфНадпись(ТовОстаток,, ТовЕдиница, ТовЦена, ТовВалюта);<br><br> Иначе // не услуга, розничная цена<br> глПолучитьРозничныйОстатокЦену(ТекНоменклатура, ТекНоменклатура.ОсновнаяЕдиница, ОстаткиТМЦ, ТовОстаток, ТовЦена);<br> СписокОст = ЗначениеИзСтроки(ТовОстаток);<br> СписокЦен = ЗначениеИзСтроки(ТовЦена);<br> РазмерСписка = СписокОст.РазмерСписка();<br> Если РазмерСписка > 0 Тогда<br> Для Счетчик = 1 По СписокОст.РазмерСписка() Цикл<br> ИнформационнаяСтрока = ИнформационнаяСтрока +<br> СформироватьИнфНадпись(СписокОст.ПолучитьЗначение(Счетчик),,<br> ТекНоменклатура.ОсновнаяЕдиница,<br> СписокЦен.ПолучитьЗначение(Счетчик),<br> глРубли) + "; "; // Розничные цены в регистре всегда в валюте бух. учета<br> КонецЦикла;<br> Иначе<br> ИнформационнаяСтрока = СформироватьИнфНадпись(,,,,);<br> КонецЕсли;<br> КонецЕсли;<br> Иначе // подбор не по розничным ценам из регистра<br> ЕдиницаТекНоменклатуры = ТекНоменклатура.ОсновнаяЕдиница;<br> Если ЦенаВподборе = "ИзСправочника" Тогда<br> Если ПолучитьЦенуНоменклатуры(ТекНоменклатура, ТовЕдиница, ТовЦена, ТовВалюта) = 1 Тогда<br> ЦенаТекНоменклатуры = глФРМ(ТовЦена);<br> ВалютаТекНоменклатуры = СокрЛП(ТовВалюта);<br> ЕдиницаТекНоменклатуры = ТовЕдиница;<br> КонецЕсли;<br> КонецЕсли;<br> <br> глПолучитьОстаткиНоменклатуры(ФирмаДляОстатковТМЦ, ТекНоменклатура, ЕдиницаТекНоменклатуры, ОстаткиТМЦ, ТовОстаток, ТовОстатокПоФирме, Склад, Резервы, 1);<br> <br> ИнформационнаяСтрока = СформироватьИнфНадпись(ТовОстаток, ТовОстатокПоФирме, ЕдиницаТекНоменклатуры , ТовЦена, ТовВалюта);<br> КонецЕсли;<br> <br> Иначе <br> ИнформационнаяСтрока = СокрЛП(ТекНоменклатура.Наименование);<br> КонецЕсли;<br> <br> Если (ТекНоменклатура.ЭтоГруппа() = 0)<br> и (ТипЗначения(ФормаТаблицыОстатков) = 100) Тогда<br> <br> // если открыта форма с таблицей остатков, то обновим в ней текущий элемент<br> ФормаТаблицыОстатков.Форма.Обновить(0);<br> <br> КонецЕсли; <br> <br> Возврат ИнформационнаяСтрока;<br> <br>КонецФункции // ИнформационнаяСтрокаПоНоменклатуре()"