Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Подчиненный справочник
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
mavrik
Версия 1С 7.7 Конфигурация самописная. Читал разбирался ничего понять не могу. Помогите.Мне нужно записать элементы группы ДизТопливо из справочника Запасы.Но группа ДизТопливо имеет справочник-владельца Вид Запасов с элементом Топливо.
alex040269
Как это Группа имеет владельца. Такого даже в 8.* нет!!!

Владельца может иметь только справочник.



или я чего не понял?
mavrik
Сори,Элементы из группы ДизТопливо
nysysimara
Не совсем понятно кто кому подчинен?
при создании новых элементов подчиненного справочника я использую подобный код:
СпрПодч= СоздатьОбъект("Справочник.ХХХ");  //ХХХ - подчиненный справочник
СпрПодч.ИспользоватьРодителя("");
СпрПодч.Новый();
СпрПодч.Владелец = УУУ; // УУУ - элемент справочника, которому подчинен ХХХ
СпрПодч.Реквизит1= 1;
...
СпрПодч.Записать();
mavrik
Цитата(nysysimara @ 22.02.12, 10:31) необходимо зарегистрироваться для просмотра ссылки
Не совсем понятно кто кому подчинен?
при создании новых элементов подчиненного справочника я использую подобный код:
СпрПодч= СоздатьОбъект("Справочник.ХХХ");  //ХХХ - подчиненный справочник
СпрПодч.ИспользоватьРодителя("");
СпрПодч.Новый();
СпрПодч.Владелец = УУУ; // УУУ - элемент справочника, которому подчинен ХХХ
СпрПодч.Реквизит1= 1;
...
СпрПодч.Записать();

Справочник Запасы подчинен справочнику Вид Запасов
Sharzem
Ваш вопрос некоректно поставлен, не думаю что кто-то его поймет, поскольку не совсем что Вы собираетесь делать - зменение элементов справочника или создание новых на основе уже существующих ?
mavrik
Мне нужно из справочника Запасы записать из группы Дизтопливо элементы в СписокЗначений.Справочник Запасы подчинен ВидЗапасов.
nysysimara
СпДиз = СоздатьОбъект("СписокЗначений");

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