0
work92
10.08.12
✎
12:01
|
Возникла проблема
Есть 2 справочника
1Сотрудник
2состав семьи
Нужно вывести в отчет
Иванов И.И сын имя
дочь имя
А по майму коду.... только выводится только один член семьи подскажите как вывести 2 членов семьи.
Процедура Выполнить()
Если Вопрос("Чтобы продолжить нажмите <Да>, чтобы отменить нажмите <Нет>",4)=7 тогда
Возврат;
КонецЕсли;
СпрСотр=СоздатьОбъект("Справочник.Сотрудники");
СпрСостСемьи=СоздатьОбъект("Справочник.СоставСемьи");
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.ВывестиСекцию("Шапка");
СпрСотр.НайтиПоНаименованию("Расчетчик1",0);
Расчетчик1=СпрСотр.ТекущийЭлемент();
СпрСотр.ИспользоватьРодителя(Расчетчик1);
СпрСотр.ВыбратьЭлементы();
Пока СпрСотр.ПолучитьЭлемент()=1 цикл
//Если СпрСотр.ЭтоГруппа()=0 тогда
СпрСостСемьи.ИспользоватьВладельца(СпрСотр.ТекущийЭлемент());
// КонецЕсли;
СпрСостСемьи.ВыбратьЭлементы();
Пока СпрСостСемьи.ПолучитьЭлемент()=1 Цикл
Если ((СпрСостСемьи.Родство=Перечисление.СтепениРодства.Сын)или
(СпрСостСемьи.Родство=Перечисление.СтепениРодства.Дочь))и
(СпрСостСемьи.ДеньРождения<Д)тогда
Наим=СпрСотр.Наименование;
Год= СпрСостСемьи.ДеньРождения;
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;
КонецЦикла;
Таб.показать();
Таб.ТолькоПросмотр();
|
|