Yolochka
24.11.2014, 15:47
Помогите, пожалуйста,
для всего справочника Номенклатура в подчиненный справочник МестаХранения занести элементы
СкладМХ - элемент справочника Склады
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку() = 1 Цикл
СпрМХ.ИспользоватьВладель� �а(ТЗ.Номенклатура);
Если СпрМХ.НайтиПоРеквизиту("Склад", СкладМХ, 0) = 0
Тогда Сообщить("В справочнике мест хранения не найден склад " + СкладМХ + " для номенклатуры: " + Запрос.Номенклатура.Код);
//добавить элемент
Если СпрМХ.ВыбратьЭлементы(1) = 0 Тогда
//СпрМХ.ПолучитьЭлемент() = 0
СпрМХ.Новый();
СпрМХ.Владелец = ТЗ.Номенклатура; //***//
СпрМХ.Склад = СкладМХ;
СпрМХ.Записать();
КонецЕсли;
Иначе //есть
КонецЕсли;
КонецЦикла;
В строке //***// ругается "Не Выбран элемент"
для всего справочника Номенклатура в подчиненный справочник МестаХранения занести элементы
СкладМХ - элемент справочника Склады
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку() = 1 Цикл
СпрМХ.ИспользоватьВладель� �а(ТЗ.Номенклатура);
Если СпрМХ.НайтиПоРеквизиту("Склад", СкладМХ, 0) = 0
Тогда Сообщить("В справочнике мест хранения не найден склад " + СкладМХ + " для номенклатуры: " + Запрос.Номенклатура.Код);
//добавить элемент
Если СпрМХ.ВыбратьЭлементы(1) = 0 Тогда
//СпрМХ.ПолучитьЭлемент() = 0
СпрМХ.Новый();
СпрМХ.Владелец = ТЗ.Номенклатура; //***//
СпрМХ.Склад = СкладМХ;
СпрМХ.Записать();
КонецЕсли;
Иначе //есть
КонецЕсли;
КонецЦикла;
В строке //***// ругается "Не Выбран элемент"