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