Имя: Пароль:
1C
1C 7.7
v7: как вывести группу в таблицу
0 work92
 
10.08.12
12:01
Возникла проблема
Есть 2 справочника
1Сотрудник
2состав семьи
Нужно вывести в отчет
Иванов И.И   сын имя
            дочь имя

А по майму коду.... только выводится только один член семьи подскажите как вывести 2 членов семьи.







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