---

Перем КорзинаТоваров;

Функция ПолучитьКорзину() Экспорт

    Если КорзинаТоваров = Неопределено Тогда
        КорзинаТоваров = Новый ТаблицаЗначений;
        КорзинаТоваров.Колонки.Добавить("Товар");
        КорзинаТоваров.Колонки.Добавить("Количество");
    КонецЕсли;

    Возврат КорзинаТоваров;

КонецФункции


Процедура ДобавитьТовар(Ссылка) Экспорт

    Корзина = ПолучитьКорзину();
    Найдено = Ложь;

    Для Каждого Строка Из Корзина Цикл
        Если Строка.Товар = Ссылка Тогда
            Строка.Количество = Строка.Количество + 1;
            Найдено = Истина;
            Прервать;
        КонецЕсли;
    КонецЦикла;

    Если НЕ Найдено Тогда
        НоваяСтрока = Корзина.Добавить();
        НоваяСтрока.Товар = Ссылка;
        НоваяСтрока.Количество = 1;
    КонецЕсли;

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