[mavrik]

Версия 1С 7.7 Конфигурация самописная. Читал разбирался ничего понять не могу. Помогите.Мне нужно записать элементы группы ДизТопливо из справочника Запасы.Но группа ДизТопливо имеет справочник-владельца Вид Запасов с элементом Топливо.

[alex040269]

Как это Группа имеет владельца. Такого даже в 8.* нет!!!

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



или я чего не понял?

[mavrik]

Сори,Элементы из группы ДизТопливо

[nysysimara]

Не совсем понятно кто кому подчинен?
при создании новых элементов подчиненного справочника я использую подобный код:

СпрПодч= СоздатьОбъект("Справочник.ХХХ");  //ХХХ - подчиненный справочник
СпрПодч.ИспользоватьРодителя("");
СпрПодч.Новый();
СпрПодч.Владелец = УУУ; // УУУ - элемент справочника, которому подчинен ХХХ
СпрПодч.Реквизит1= 1; 
...
СпрПодч.Записать();

[mavrik]

Не совсем понятно кто кому подчинен?
при создании новых элементов подчиненного справочника я использую подобный код:

СпрПодч= СоздатьОбъект("Справочник.ХХХ");  //ХХХ - подчиненный справочник
СпрПодч.ИспользоватьРодителя("");
СпрПодч.Новый();
СпрПодч.Владелец = УУУ; // УУУ - элемент справочника, которому подчинен ХХХ
СпрПодч.Реквизит1= 1; 
...
СпрПодч.Записать();

Справочник Запасы подчинен справочнику Вид Запасов

[Sharzem]

Ваш вопрос некоректно поставлен, не думаю что кто-то его поймет, поскольку не совсем что Вы собираетесь делать - зменение элементов справочника или создание новых на основе уже существующих ?

Сообщение отредактировал Vofka - 22.02.12, 10:56

[mavrik]

Мне нужно из справочника Запасы записать из группы Дизтопливо элементы в СписокЗначений.Справочник Запасы подчинен ВидЗапасов.

[nysysimara]

СпДиз = СоздатьОбъект("СписокЗначений");

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