Имя: Пароль:
1C
 
Жирным шрифтом выделяется только первая колонка.
0 gerthog
 
01.09.14
13:48
Есть такой вот код:

ТабДок = Новый ТабличныйДокумент;
    Макет = ПолучитьМакет("СМКстр1");
    ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
    ОбластьБДМ7  = Макет.ПолучитьОбласть("БДМ7");
    
    ОбластьШапка.Параметры.Дата = Формат(Дата1, "ДФ=dd.MM.yyyy");
    ТабДок.Вывести(ОбластьШапка);

    Пока ВыборкаБДМ.Следующий() Цикл
        
        ОбластьБДМ7.Параметры.Заполнить(ВыборкаБДМ);
    
        ТабДок.Вывести(ОбластьБДМ7);
        НовыйШрифт = Новый Шрифт (,,Истина,);
        ОбластьБДМ7.ТекущаяОбласть.Шрифт = НовыйШрифт;

        ВыборкаНоменклатура = ВыборкаБДМ.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    
        Пока ВыборкаНоменклатура.Следующий() Цикл
            
            ОбластьБДМ7.Параметры.Заполнить(ВыборкаНоменклатура);
            
            ТабДок.Вывести(ОбластьБДМ7);
            НовыйШрифт = Новый Шрифт (,,Истина,);
            ОбластьБДМ7.ТекущаяОбласть.Шрифт = НовыйШрифт;
            
            ВыборкаВариантИспользования = ВыборкаНоменклатура.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    
            Пока ВыборкаВариантИспользования.Следующий() Цикл

                ОбластьБДМ7.Параметры.Заполнить(ВыборкаВариантИспользования);
                
                    ТабДок.Вывести(ОбластьБДМ7);
                НовыйШрифт = Новый Шрифт (,,Истина,);
                ОбластьБДМ7.ТекущаяОбласть.Шрифт = НовыйШрифт;

Но жирным шрифтом выделяется только первая колонка. Почему остальные остаются не жирными?
1 hhhh
 
01.09.14
13:55
ну наверно ОбластьБДМ7.ТекущаяОбласть - текущая же самая левая колонка. вот она и красится. ваш КО
2 gerthog
 
01.09.14
13:57
(1) почему тогда остальные колонки заполняются?
я это:

НовыйШрифт = Новый Шрифт (,,Истина,);
ОбластьБДМ7.ТекущаяОбласть.Шрифт = НовыйШрифт;

Нафигачил везде и всюду, но жирным выделяется только первая, нипанятно...
3 gerthog
 
01.09.14
14:06
Всё я понял, нужно было делать так:

НовыйШрифт = Новый Шрифт (,,Ложь, Ложь);     ОбластьБДМ7.Область().Шрифт = НовыйШрифт;