Каталог решений - HOWTO: Остатки в форме регистрации продаж в УТ10

Почему то такая потребность довольно часто возникала у всех, кто использует интерфейс кассира в УТ10. В Рознице 2.0, например, такая возможность уже есть.

Для того, чтобы показывались остатки, достаточно добавить текстовое поле Остаток и назначить следующую процедуру для обработчика ПриПолученииДанных табличного поля Товары в ФормеРегистрацииПродаж ЧекаККМ

Процедура ТоварыПриПолученииДанных(Элемент, ОформленияСтрок)
        
    Если ОформленияСтрок.Количество() = 0 Тогда
        Возврат;
    КонецЕсли;
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ РАЗЛИЧНЫЕ
    |    ТаблицаНоменклатуры.Номенклатура,
    |    ТаблицаНоменклатуры.ХарактеристикаНоменклатуры,
    |    ТаблицаНоменклатуры.Склад
    |ПОМЕСТИТЬ ТаблицаВЗапрос
    |ИЗ
    |    &ТаблицаНоменклатуры КАК ТаблицаНоменклатуры
    |;
    |
    |////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ
    |    ТоварыНаСкладахОстатки.Склад,
    |    ТоварыНаСкладахОстатки.Номенклатура,
    |    ТоварыНаСкладахОстатки.ХарактеристикаНоменклатуры,
    |    ТоварыНаСкладахОстатки.КоличествоОстаток КАК КоличествоОстаток
    |ИЗ
    |    РегистрНакопления.ТоварыВРознице.Остатки(
    |            ,
    |            (Номенклатура, ХарактеристикаНоменклатуры, Склад) В
    |                (ВЫБРАТЬ
    |                    ТаблицаВЗапрос.Номенклатура,
    |                    ТаблицаВЗапрос.ХарактеристикаНоменклатуры,
    |                    ТаблицаВЗапрос.Склад
    |                ИЗ
    |                    ТаблицаВЗапрос КАК ТаблицаВЗапрос)) КАК ТоварыНаСкладахОстатки
    |ГДЕ
    |    ТоварыНаСкладахОстатки.Номенклатура.Услуга = ЛОЖЬ";
    
    ТаблицаНоменклатуры = Товары.Выгрузить();
    ТаблицаНоменклатуры.Колонки.Добавить("Склад",Новый ОписаниеТипов("СправочникСсылка.Склады"));
    ТаблицаНоменклатуры.ЗаполнитьЗначения(Склад,"Склад");
    
    Запрос.УстановитьПараметр("ТаблицаНоменклатуры", ТаблицаНоменклатуры);
    
    Результат = Запрос.Выполнить();
    Если Результат.Пустой() Тогда
        //Сообщить ("Нет смогли определить остатки");
        Возврат;
    КонецЕсли;
    
    ТаблицаОстатков = Результат.Выгрузить();
    ТаблицаОстатков.Индексы.Добавить("Номенклатура,ХарактеристикаНоменклатуры");
    
    СтруктураПоиска = Новый Структура;
    МассивСтрок = Новый Массив;

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

    КонецЦикла;

    
КонецПроцедуры

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