Перейти к содержимому

Перейти
Перейти

Печать прайс-листа

прайс-лист

  • Авторизуйтесь для ответа в теме
В теме одно сообщение

#1   gelshtein

gelshtein

      Рядовой

    • Пользователи
    • Сообщений: 4
    • Регистрация: 03-August 18

Отправлено 01 September 2018 - 15:35

<img src="https://image.ibb.co...eenshot_1.png">
Сама конструкция прайса такова. Слева по нажатию кнопки открывается каталог, пользователь выбирает какой товар нужен и нажимает печать и соответственно выводится прайс.
Потом была задача сохранять список значение при закрытии и выводить его при открытии. С помощью "ИзСтрокиСРазделителями" это задача работает, но прайс лист показывает пустым.
То есть я открываю обработку, никакие файлы из справочника не выбираю, в списке значений открылся список товаров , которые были выбраны прошлый раз, но когда формирую прайс - лист , он выводится пустой, как будто список пуст. Не могу понять, что нужно доработать и что дописать.

 

Процедура ПриОткрытии()



//Восстановим строку с разделителями
СписокТоваров = ВосстановитьЗначение("СписокТоваров");
// Создадим ещё один список значений для восстановления отметок
ВыбТовары1 = СоздатьОбъект("СписокЗначений");
// Заполним реквизит диалога СписокДокументов значениями

// Проверяем сохранился ли список с предыдущего раза
Если ПустоеЗначение(СписокТоваров) = 0 Тогда
// Восстанавливаем из строки элементы списка
ВыбТовары1.ИзСтрокиСРазделителями(СписокТоваров);
// Проходим каждый элемент реквизита СписокДокументов и выставляем пометки
Для к=1 По ВыбТовары1.РазмерСписка() Цикл
ВыбТовары.ДобавитьЗначение(ВыбТовары1.ПолучитьЗначение(к));
КонецЦикла;
КонецЕсли;
КонецПроцедуры


  • 0

#2   Karabasoff

Karabasoff

      Рядовой

    • Пользователи
    • Сообщений: 3
    • Регистрация: 28-February 12

Отправлено 17 October 2018 - 22:38

СписокТоваров = ВосстановитьЗначение("СписокТоваров");

ВыбТовары1 = СоздатьОбъект("СписокЗначений");

Если ПустоеЗначение(СписокТоваров) = 0 Тогда
Товары = СоздатьОбъект("Справочник.Товары"); //или как по другому называется (Номенклатура, ТМЦ)

ВыбТовары1.ИзСтрокиСРазделителями(СписокТоваров);
Для к=1 По ВыбТовары1.РазмерСписка() Цикл
НаименованиеТовара = СокрЛП(ВыбТовары1.ПолучитьЗначение(к));// получаем наименование (это ещё не элемент справочника)

Если Товары.НайтиПоНаименованию(НаименованиеТовара)=1 Тогда

// вот сейчас мы получили элемент справочника и его добавляем в список

ВыбТовары.ДобавитьЗначение(НаименованиеТовара.ТекущийЭлемент());

КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры


  • 0



Похожие темы

  Название темы Автор Статистика Последнее сообщение




Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных