0
dimi3o
25.01.13
✎
23:48
|
Всем привет! Подскажите как получить остаток на товарную позицию, полученную сканированием ШК. Я получил наименование и цену. Теперь мне нужно получить ее остаток на складе "Основной склад" и по фирме "Магазин". Подскажите пожалуйста! Может есть глобальная обработка или нужно формировать РегистрОстатки и РегистрПартии? Заранее спасибо!
|
|
3
Aleksey
26.01.13
✎
00:17
|
(2) Дурак что ли?
Открой типовую и посмотри в номенклтуре колонку остаток
ТовОстаток=ОстаткиТМЦ.Остаток(Фирма,ТекНоменклатура,Склад,"Количество")
|
|
4
dimi3o
26.01.13
✎
01:41
|
(3)
Вот так пытаюсь получить количество, подобно инф.строке в списке номенклатуры:
Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)
Перем ВремТовар, ВремЕдиница, ВремКоличество;
Перем ЦенаЦены;
Wsh = СоздатьОбъект("Wscript.shell");
Wsh.SendKeys("{RIGHT}");
ТипЦен = СоздатьОбъект("Справочник.ТипыЦен");
ТипЦен.НайтиПоНаименованию("Розничные");
ТипЦен = ТипЦен.ТекущийЭлемент();
Валюта = СоздатьОбъект("Справочник.Валюты");
Валюта.НайтиПоНаименованию("руб.");
Валюта = Валюта.ТекущийЭлемент();
//Фирма = СоздатьОбъект("Справочник.Фирмы");
//Фирма.НайтиПоНаименованию("Магазин");
//Фирма = Фирма.ТекущийЭлемент();
//Склад = СоздатьОбъект("Справочник.Склады");
//Склад.НайтиПоНаименованию("ДИСКАУНТЕР");
//Склад = Склад.ТекущийЭлемент();
Курс = 1.000;
ОбщРег = СоздатьОбъект("Регистры");
ВремОстаткиТМЦ = ОбщРег.ОстаткиТМЦ;
ОстаткиТМЦ = ВремОстаткиТМЦ;
Если Событие = "BarCodeValue" Тогда
Если Форма.ТолькоПросмотр() = 0 Тогда
Если глПолучитьТоварПоШтрихкоду(Данные, ВремТовар, ВремЕдиница, ВремКоличество) <> 0 Тогда
Форма.Товар .Заголовок(" "+ВремТовар);
Форма.Цена .Заголовок(" "+глПолучитьЦену(ВремТовар.ТекущийЭлемент(), ТипЦен, РабочаяДата(), ВремЕдиница, Валюта, Курс)+" руб.");
ТекОстаток = глПолучитьОстатокНоменклатуры(ВремТовар.ТекущийЭлемент(), ВремЕдиница, ОстаткиТМЦ, 0, 0, 0);
КоличествоВл = ВремТовар.ТекущийЭлемент().КолВложений;
Форма.Остаток .Заголовок(" "+СокрЛП(КоличествоВл)+" "+ВремЕдиница);//тут должно выводить остаток
Иначе
Форма.Товар .Заголовок(" " + "Штрих-код не найден!");
Форма.Цена .Заголовок(" ");
Форма.Остаток .Заголовок(" ");
КонецЕсли;
КонецЕсли;
КонецЕсли;
// Обработка закончена. Готовы к получению нового штрихкода.
глСканерПосылкаДанных(1);
КонецПроцедуры
Всё время на выходе 0! Что я не так делаю?? Подскажите мужики, пожалуйста! Заранее спасибо!
|
|