Имя: Пароль:
1C
1C 7.7
v7: Печать справочника
0 Panterka
 
13.09.11
17:14
Добрый вечер!

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

   
КонецПроцедуры    



Необходимо добавить еще условие в цикл, чтобы в таблицу печаталось еще КОД и ОБРАЗОВАНИЕ.
Подскажите пожалуйста, как это реализовать! =)
1 FN
 
13.09.11
17:16
2 __Se24
 
13.09.11
18:17
Берем желтенькую книжечку и начинаем читать ))
Сначала про реквизиты справочников , потом про Таблицы .
И сразу станет все понятно
3 NS
 
13.09.11
18:25
Я бы особо не называл переменную "номерстроки", а то когда-нибудь ляпнешь такое в документе...
4 NS
 
13.09.11
18:27
Добавь в таблицу код и образование, код обработки то тут при чем?
И прикол - номер строки увеличивается только для непомеченных, а печатается всё.

Судя по вопросу - обработку писал не ТС, а предшедственник. Какаято невезучая контора...
5 KRV
 
13.09.11
18:50
"..справочник абитуриентов" дык, наверно, вечные абитуриенты и писали..
6 Эльниньо
 
13.09.11
18:57
Почему СЗ, а не сам справочник?
7 ZOMI
 
13.09.11
19:22
(0) refprint.ert найти - проставить галочки и распечатать
8 ZOMI
 
13.09.11
19:22
(1) не заметил !
9 G-Re
 
13.09.11
19:27
Процедура Печать()
   СА=СоздатьОбъект("Справочник.Абитуриенты");
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.Опции(0,0);
   Таб.ПараметрыСтраницы(1,,,,,,,,,1);

   Таб.ВывестиСекцию("Шапка");
   СА.ВыбратьЭлементы();
   Пока СА.ПолучитьЭлемент()=1 Цикл
       Если СА.ЭтоГруппа()=0 Тогда
            Если СА.ПометкаУдаления()=0 Тогда
                  Таб.ВывестиСекцию("Строка");
            КонецЕсли;
       КонецЕсли;  
   КонецЦикла;  

   Таб.Показать("Абитуриенты")
КонецПроцедуры    

А в Строка опиши все выводимые данные, например, как Выражение, СА.ИдентификаторРеквизита.
10 Эльниньо
 
13.09.11
19:38
(9) А может ему ландшафт нужен? )
11 G-Re
 
13.09.11
20:33
(10) Значит, напишет
Таб.ПараметрыСтраницы(2,,,,,,,,,1);
Пусть хоть как-то масштабируется, а то следующий вопрос будет "У меня не помещается на лист печатаемая форма". Букварей ведь не читают совсем.
12 VasilyKushnir
 
14.09.11
00:26
(8) Есть еще очень неплохая УПС (универсальная печать справочников) - по-моему на Инфо_старте мелькала. На крайняк могу завтра с работы намылить.
Программист всегда исправляет последнюю ошибку.