Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 06:55

ФормаРегистрацииПродаж - остатки номенклатуры

Автор russoft, 07 янв 2011, 20:27

0 Пользователей и 1 гость просматривают эту тему.

russoft

Добрый день,
перерыл сегодня весь форум, может конечно что-то и пропустил, но ответа на свой вопрос не нашел.
ДАно УТ 10.3 интерфейс кассира - ФормаРегистрацииПродаж,
доделал теперь выводит остаток товара в форму, но если товар имеет характеристику - то по характеристикам остатка не выводит, а выводит полный остаток на наименованию номенклатуры.
Сделал условия отбора по номенклатуре+характеристике, работает, но через раз, но выводит только остаток по характеристике, но не выводит только по номенклатуре, то наоборот.
Нашел такой код в сети:


СписокНоменклатуры = Товары.ВыгрузитьКолонку("Номенклатура");

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

    Для каждого Стр из ОформленияСтрок Цикл
СтруктураОтбора = Новый Структура;
СтруктураОтбора.Вставить("Номенклатура",Стр.ДанныеСтроки.Номенклатура);
СтруктураОтбора.Вставить("ХарактеристикаНоменклатуры",Стр.ДанныеСтроки.ХарактеристикаНоменклатуры);
РезПоиска = Результат.НайтиСтроки(СтруктураОтбора);
Если РезПоиска<>Неопределено Тогда
//есть остаток по этой номенклатуре+характеристике
  Стр.Ячейки.Остаток.Значение = РезПоиска[0].КоличествоОстаток;
Иначе
//нет остатка

Стр.Ячейки.Остаток.Значение = 0;
КонецЕсли;

    КонецЦикла;

После этого при вводе некоторых товаров ругается на
Стр.Ячейки.Остаток.Значение = РезПоиска[0].КоличествоОстаток;
точнее на Резпоиска[0]..... в чем точно дело, понять не могу, может кто поможет советом хотябы...
Как правильно сделать отбор остатков по контретной характеристике номенклатуры, но и только по номенклатуре без характеристик.
Заранее спасибо.

progmikon


russoft

Я дико извеняюсь, немного поторопился с этой темой, сам разобрался.... взял за основу код из 1С Розница, все работает... Всем спасибо. Тема закрыта....

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск