() Denis_CFO, Процедура ЗаполнитьПоСсылке(СписокТоваров);
ТаблЦен=ПолучитьТаблицуЦен(СписокТоваров.выгрузитьКолонку("Номенклатура"));
ЭлементыФормы.Индикатор1.МаксимальноеЗначение=СписокТоваров.Количество();
сч=0;
Для Каждого Эл Из СписокТоваров Цикл
сч=сч+1;
ЭлементыФормы.Индикатор1.Значение=сч;
ОбработкаПрерыванияПользователя();
НовСтр=Товары.Найти(Эл.Номенклатура,"Номенклатура");
Если НовСтр=Неопределено Тогда
НовСтр=Товары.Добавить();
КонецЕсли;
Попытка
НовСтр.Единица=эл.ЕдиницаИзмерения;
Исключение
НовСтр.Единица=эл.номенклатура.ЕдиницаХраненияОстатков;
КонецПопытки;
Запрос = Новый Запрос(
"ВЫБРАТЬ
| Штрихкоды.Штрихкод,
| Штрихкоды.ТипШтрихкода,
| Штрихкоды.ПредставлениеШтрихкода
|ИЗ
| Справочник.Номенклатура КАК шНоменклатура
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
| ПО шНоменклатура.Ссылка = Штрихкоды.Владелец
|ГДЕ
| шНоменклатура.Ссылка В ИЕРАРХИИ(&Ссылка)");
Запрос.УстановитьПараметр("Ссылка",Эл.Номенклатура);
СписокШт=Запрос.Выполнить().Выгрузить();
НовСтр.Колво=1;
НовСтр.Номенклатура=Эл.Номенклатура;
НовСтр.Артикул=Эл.Номенклатура.Артикул;
НовСтр.Страна=Эл.Номенклатура.СтранаПроисхождения;
НовСтр.ШтрихКод = СписокШт.Получить(0).Штрихкод;
НовСтр.ТипШтрихкода = СписокШт.Получить(0).ТипШтрихкода;
НовСтр.ПредставлениеШтрихкода = СписокШт.Получить(0).ПредставлениеШтрихкода;
НовСтр.Цена=0;
Кол=0;
ЕстьСтр=ТаблЦен.Найти(Эл.Номенклатура,"Номенклатура");
Если ЕстьСтр<>Неопределено Тогда
НовСтр.Цена=ЕстьСтр.Цена;
КонецЕсли;
Если СсылкаНаОБъект <> Неопределено Тогда
ЕстьстрК=СсылкаНаОБъект.товары.найти(Эл.Номенклатура,"Номенклатура");
Если ЕстьСтрК<>Неопределено Тогда
Кол = ЕстьстрК.количество;
НовСтр.Колво = Кол;
КонецЕсли;
КонецЕсли;
Если (НовСтр.Цена=0) или (Кол=0) Тогда
НовСтр.Флаг = Ложь;
НовСтр.Колво = 0;
Иначе
НовСтр.Флаг=Истина;
КонецЕсли;
//еСЛИ ТипЗНЧ(СсылкаНаОбъект)=Тип("ДокументСсылка.ПоступлениеТоваровУслуг") Тогда
// НовСтр.Флаг=Истина;
//
// Естьстр=СсылкаНаОБъект.товары.найти(Эл.Номенклатура,"Номенклатура");
// Кол=0;
//
// Если Естьстр<>Неопределено Тогда
// Кол = Естьстр.количество;
// НовСтр.Колво = Кол;
// КонецЕсли;
// Если НовСтр.Цена=0 или Кол=0 Тогда
// НовСтр.Колво=0;
// НовСтр.Флаг=Ложь;
// КонецЕсли;
//КонецЕсли;
КонецЦикла;
ЭлементыФормы.Индикатор1.Значение=0;
КонецПроцедуры
Показать