Имя: Пароль:
1C
1С v8
Вывод в табличный документ - направление текста
0 fantomrik
 
11.12.13
23:30
Приветствую! Модифицирую вывод дней недели в обработке (добавил еще 4 доп колонки). Почему то в 3х колонках текст начинает идти вертикально, не могу понять почему и как поправить...
http://imgdisk.ru/images/gjsli.jpg

    // Вывод верхней строки - Понедельний, Вторник, ...., Воскресенье
    ТабДокументПонедельникВоскресенье = МакетЯчейки.ПолучитьОбласть(1, 1, 1, 62);
    ШиринаДопКолонок = 6;  
    //Для нИндексДеньНедели = 0 По 6  Цикл  
    Для нИндексДеньНедели = 0 По 10  Цикл // Доп 4 колонки после дней недели
        //Область = ТабДокументПонедельникВоскресенье.Область(1, нИндексДеньНедели * ШиринаДняВЯчейках + 1, 1, нИндексДеньНедели * ШиринаДняВЯчейках + ШиринаДняВЯчейках);
        Если нИндексДеньНедели = 7 Тогда
            Область = ТабДокументПонедельникВоскресенье.Область(1, 38 , 1,  44);
        ИначеЕсли нИндексДеньНедели = 8 Тогда
            Область = ТабДокументПонедельникВоскресенье.Область(1, 44 , 1,  50);
        ИначеЕсли нИндексДеньНедели = 9 Тогда
            Область = ТабДокументПонедельникВоскресенье.Область(1, 50 , 1,  56);
        ИначеЕсли нИндексДеньНедели = 10 Тогда
            Область = ТабДокументПонедельникВоскресенье.Область(1, 56 , 1,  62);
        Иначе    
            Область = ТабДокументПонедельникВоскресенье.Область(1, нИндексДеньНедели * ШиринаДняВЯчейках + 1 +  рсШиринаНомераНедели , 1, нИндексДеньНедели * ШиринаДняВЯчейках + ШиринаДняВЯчейках + рсШиринаНомераНедели);
        КонецЕсли;
        
          
        Область.Объединить();
        Область.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр; //Область.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Лево;
        Область.ЦветФона = НастройкиОтображения.КалендарьЦветФонаЗаголовкаДень;
        Область.Шрифт = НастройкиОтображения.КалендарьШрифтЗаголовковДнейНеделиВМесяце;
        Область.ЦветТекста = НастройкиОтображения.КалендарьЦветШрифтаЗаголовковДнейНеделиВМесяце;
        Область.Обвести(ЛинияГраница, ЛинияГраница, ЛинияГраница, ЛинияГраница);
        Область.АвтоВысотаСтроки = Истина;
        Область.ВысотаСтроки = 0;
        
        
        Если нИндексДеньНедели = 7 Тогда
            Область.Текст = "Инструктор";
        ИначеЕсли нИндексДеньНедели = 8 Тогда
            Область.Текст = "Количество";
        ИначеЕсли нИндексДеньНедели = 9 Тогда
            Область.Текст = "Участники";
        ИначеЕсли нИндексДеньНедели = 10 Тогда
            Область.Текст = "ИнструкторИнструктор";
        Иначе
            Область.Текст = Формат(НачалоНедели(ПериодОкончание) + КоличествоСекундВДне * нИндексДеньНедели, "ДФ=дддд");
            Область.Текст = СокращениеДняНеделиДляКалендаря(Область.Текст);

        КонецЕсли;
        //Расшифровка = ПолучитьСтруктуруРасшифровкиЯчейкиБланк();
        //Расшифровка.ТипЯчейки = "ЗаголовокМесяца";
        //Область.Расшифровка = ТаблицаРасшифровок.Индекс(Расшифровка);
    КонецЦикла;
    КалендарьТабличныйДокумент.Вывести(ТабДокументПонедельникВоскресенье);
1 fantomrik
 
11.12.13
23:36
Очень важно победить этот кусочек сегодня, помогите, кто в курсе